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Preface 

Joseph  D.  Gradecki 


Over  the  last  few  months,  I  have  been  amazed  at  the  response  people  have  when  they  hear  about 
Virtual  Reality.  They  were  mixed  views.  Most  people  think  that  the  technology  necessary  for  VR  will 
never  become  a  reality  itself  They  seem  to  think  that  people  ten  years  ago  never  thought  about  a 
recording  median  that  was  not  based  on  the  magnetic  tape.  But  now  we  have  CD's.  To  entice  them,  I 
present  a  question  to  them. 

I,  as  a  VR  designer,  have  created  a  bungee  jumping  experience.  You  feel  the  sensation  of  falling, 
see  the  sky  and  ground,  and  feel  the  cord  snap  you  back  up  into  the  air  against  gravity.  Now  in  the 
middle  of  the  jump,  I  cut  the  cord.  As  you  fall  to  the  ground,  there  is  no  snap  and  you  see  yourself  hit 
the  ground.  You  feel  a  thump  sensation  on  your  body.  You  hear  the  screams  of  bystanders.  The 
question  is:  Will  you  die? 

Recall  that  your  mind  has  SEEN  you  hit  the  ground.  Your  mind  has  felt  a  thump  sensation  as  if  you 
indeed  hit  the  ground.  The  usual  response  to  this  question  is  NO,  you  will  not  die  because  we  will 
never  be  able  to  present  the  experience  in  enough  detail  and  realism.  The  brain  will  be  able  to  figure 
out  that  it  is  not  reality.  Technology  will  allow  the  realism  at  some  point  considering  the  history  of 
computing.  Half  of  the  negative  responses  change  their  mind. 

Think  about  it.  This  is  one  of  the  consequences  of  Virtual  Reality  that  will  need  to  be  addressed. 
This  technology  can  be  used  for  destruction.  What  about  the  psychological  terror  and  torture  that  a 
person  could  be  put  through?  Would  the  military  need  drugs  for  torture  or  just  Virtual  Reality? 

On  a  Lighter  Note 

I  spent  the  last  few  weeks  researching  what  it  would  take  for  a  true  Virtual  Reality  system  for  the 
PC  and  came  up  with  the  following: 


Ethernet 


Frame  Grabber 
Treadmill 
PowerGlove 
SoundBlaster 
UO  port 
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HMD 

The  right  and  left  PC's  would  be  responsible  for  graphic  calculations  and  display  of  the  appropriate 
image  in  the  Head  Mounted  Display.  The  HMD  would  consist  of  two  color  or  B&W  TV  screens. 


The  center  PC  would  be  in  charge  of: 

A)  Generating  sound  through  a  soundblaster  or  appropriate  hardware 

B)  Monitoring  the  Powerglove  which  is  using  the  681 1  microcontroller 

C)  Monitoring  a  treadmill  for  walking 

D)  Monitoring  an  image  grabber  for  head  movement 

The  three  machines  would  be  interconnected  through  an  ethernet  local  area  network.  The  system 
would  use  control  software  in  order  to  coordinate  the  activities  of  all  three  machines.  This  is  the 
current  system  which  I  intend  to  build.    I  would  like  to  get  some  idea  as  to  what  you  think  should  be 
included  in  a  moderately  priced  PC  Virtual  Reality  system.  If  you  have  any  suggestions  or  comments 
let  me  know.  The  most  important  part  of  the  system  will  be  the  graphics  software  and  at  this  time  I  am 
not  concentrating  in  this  area  because  others  such  as  Dave  Stampe  and  his  REND386  package  are 
maturing  at  an  acceptable  rate.  Sometime  in  April,  Dave  will  be  releasing  a  new  version  of  REND386 
so  look  for  it  on  sunee.waterloo.edu. 

Others 

In  the  first  issue,  I  tried  to  describe  some  of  the  graphics  code  available  to  us.  There  is  an  additional 
package  and  series  available.  Michael  Abrash  is  presenting  a  complete  object-oriented  3D  graphics 
package  based  on  the  320  x  240  graphics  mode  of  the  VGA.  As  in  most  series,  more  code  is  added 
each  month.  Mr.  Abrash  confesses  to  being  a  performance  person  therefore  much  of  the  code  is  in 
assembly  language;  line  draws,  32-bit  math  using  386  instructions,  matrix  multiplication,  and  fixed 
point  arithmetic.  The  demonstration  programs  are  impressive  and  are  getting  faster  and  better  each 
month.  I  highly  recommend  checking  this  series  out.  This  series  is  appearing  in  Dr.  Dobbs  magazine. 
The  code  can  be  obtained  from  the  Dr.  Dobbs  forum  on  Compuserve  under  the  name  sharp. arc.  Or 
from  WU  archives  at  128.252.135.4  under  mirrors/msdos/ddjmag/sharpl5.zip.  All  that  is  asked  is  a 
small  donation  to  a  charity  that  Mr.  Abrash  mentions  in  the  articles.  Check  it  out! 

And  Lastly.. 

The  United  States  Army  recently  paid  $1.5  million  for  a  single  battle  in  the  Gulf  War  to  be 
converted  to  a  graphic  form.  The  pictures  that  CNN  displayed  showed  a  slow  moving  blocky  world. 
An  interview  with  a  commander  in  the  Army  who  was  at  the  original  battle  said  that  the  conversion 
was  so  realistic  that  his  senses  instantaneously  sharpened  and  he  felt  like  he  was  at  the  battle.  Need  I 
say  more?  Just  imagine  if  a  commander  or  anyone  could  be  present  in  the  graphics  world  and 
manipulate  their  surroundings. 

Next  Issue 

In  the  next  issue,  we  will  be  concentrating  on  Head  Mounted  Displays.  The  interface  circuit, 
design,  and  code  for  the  Sega  glasses  will  be  given  and  any  discussions  on  ways  that  PC  experimenters 
in  VR  can  build  a  HMD.  The  HMD  is  one  of  the  most  important  aspects  in  a  VR  system.  The 
graphics  column  will  continue  with  a  discussion  on  matrix  transformations.  


Creating  a  Better  Virtual  Hand 

Joseph  D.  Gradecki 


In  the  previous  issue,  a  program  that  executes  the  Virtual  Hand  was  described.  In  that  program,  the 
Virtual  Hand  was  just  a  stick  representation.  In  order  to  bend  the  fingers  of  this  hand,  the  actual  points 
that  make  up  the  finger  had  to  be  changed.  The  following  is  a  description  of  a  true  3D  representation 
of  the  Virtual  Hand. 

Stick 

In  representing  the  stick  hand,  the  objects  that  made  up  the  hand  were  very  primitive.  The  palm 
was  simple  a  box,  and  each  finger  was  made  up  on  three  lines  and  four  vertices.  The  entire  hand  had 
twenty  vertices.  This  worked  well  except  for  gripping.  In  its  normal  orientation,  the  hand  looked  like 
this: 


Front 

When  the  hand  is  gripped,  the  finger  should  move  to  the  left  of  the  hand  and  make  a  grip.  Using  the 
normal  rotation  routines  in  the  graphics  code  will  produce  the  following  figure.  Notice  that  the  fingers 
are  no  longer  in  the  proper  orientation.  If  you  grip  your  right  hand,  you  will  see  that  the  first  segment 
of  your  finger  should  be  horizontal,  as  the  Virtual  Hand  shows.  The  second  segment  should  join  the 
first  and  be  vertical,  it  is  actually  180  degrees  from  its  original  position  and  translated  to  the  end  of  the 
first  segment.  The  third  segment  should  join  the  second  and  be  horizontal  with  a  move  of  a  90  degree 
rotation  and  a  translation.  You  will  see  from  the  picture  that  when  only  the  rotation  is  performed,  the 
segments  do  not  join  as  they  should.  If  the  translations  are  performed  on  the  joints  as  well,  the 
segments  will  join  up.  These  translations  are  specific  to  the  gripping  of  the  hand.  They  must  be  figured 
out  through  either  trial  and  error  or  using  graph  paper  and  a  little  math.  
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When  the  translations  are  performed  during  the  grip,  the  must  be  undone  when  the  hand  is  flexed. 
If  by  some  chance,  the  hand  is  rolled  to  a  different  position,  the  translations  will  be  wrong.  In  the  case 
of  the  second  version  of  the  Virtual  Hand,  this  was  solved  by  keeping  a  constant  record  of  which 
position  the  hand  was  in  so  that  specific  translations  and  rotations  could  be  used.  The  original  Virtual 
Hand  was  so  sticky  that  it  was  easier  to  change  the  points  of  the  finger  object  than  perform  the 
rotations  and  translations. 

3D  Virtual  Hand 

The  new  Virtual  Hand  is  not  a  simple  object.  The  palm  consists  of  eight  vertices.  Each  finger  has 
three  segments  with  a  total  of  sixteen  vertices,  with  a  grand  total  of  seventy-two  vertices.  The 
complexity  of  the  new  hand  (and  my  total  lack  of  artistic  talent),  makes  it  impossible  for  me  to 
reproduce  the  hand  for  you  here.  It  is  still  blocky  but  it  looks  more  like  a  hand. 

The  added  complexity  of  the  hand  meant  that  the  grip  would  have  to  be  handled  differently.  We  can 
no  longer  simply  change  the  coordinates  of  the  fingers  since  they  have  a  total  of  sixty-four  points.  To 
solve  this  problem,  a  little  learning  was  done  on  my  part.  Instead  of  trying  to  rotate  and  translate  the 
fingers  as  a  single  unit,  I  broke  the  fingers  down  into  the  three  natural  segments  of  a  real  finger.  As  the 
hand  is  gripped,  the  segments  are  rotated,  translated,  and  redrawn  from  the  lower  segment  to  the 
higher  segment.  Each  of  the  segments  are  translated  to  the  origin,  rotated  to  the  appropriate  degree 
position  and  translated  back  to  their  new  position.  To  do  this,  there  is  a  new  function  called  mini_proj. 
This  function  will  return  the  new  location  of  a  single  point.  I  give  a  point  on  the  end  of  the  segment 
that  I  want  to  attach  the  new  segment.  The  values  returned  are  the  translate  values  that  I  use  for  the 
new  segment.  For  fast  reference,  the  values  of  the  joints  are  kept  in  constants.  The  new  Virtual  Hand 
code  follows.   


/*  This  code  is  copyrighted  by  VRing  Software  Development  */ 
/*  Any  commercial  use  is  strictly  prohibited  unless  permission  is  *l 
/*  granted  otherwise.  */ 

#include  <stdio.h> 
^include  <stdlib.h> 
^include  <graphics.h> 
^include  <math.h> 
Sinclude  <conio.h> 
^include  <dos.h> 
#include  <glove.h> 

^define  to_radians  0.01 7453292 

#definerho5000 

#define  theta  90.0 

#define  phi  180.0 

#define  screendist  1000.0 

int  scieen_x  =  640, 
screen_y  —  480; 
int  scTeen_x2  =  320; 
int  screen_y2  =  240, 
int  va,vb,ve,vf,vg,vi,vj,vk,vl; 

/*  This  is  a  basic  point  on  the  3D  screen  */ 
struct  my_point  ( 

int       x,  y,  z; 

int        oldx,  oldy,  oldz; 

int       ax,  ay; 

struct  my_point  *next; } ; 

/*  This  structure  defines  the  four  points  that  make  up  the  polygon 

for  the  palm  of  the  hand  */ 
struct  polygon{srructmy_point  'points; 

struct  polygon  "next; 

int  color; 

int         line; }; 

struct  object{  struct  poJygon  *polygons; 

int  number;); 

struct  matrix  {intm[4][4];); 

void  identity  ( struct  matrix  *m ) 
(  int  ij; 

for  (i=0,i<4;i++ )  ( 
for  0=0j<4J^)  { 
m->m[i]Lj]  =  0.0;    )  } 

m->m[0][0]  =  1 .0; 
m->m[l][l]  =  1.0; 
m->m[2][2]  =  1.0; 
m->m[3p]  =  1.0; 

} 

void  createviewtransformationO 

(  float  sintheta,  costheta,  sinphi,  cosphi; 

sintheta  =  sin(theta*to  radians);  /*  1  */ 
costheta  =  cos(theta*to_radiarts);  /*  0  */ 
sinphi  =  sin(phi*to_radians);     /*  0  */ 
cosphi  =  cos(phi*to_radians); 

va  = -sintheta,  /*-!*/ 
vb  =  costheta;  /*0*/ 
ve  =  -costheta*  cosphi;  /*0*/ 
vf  =  -sintheta*cosphi;  l*\*i 
vg  =  sinphi,  1*0*1 
vi  =  -costheta'sinphi;  1*0*1 
vj  =  -sintheta*sinphi;  /*0*/ 
vk  =  -cosphi;  /*  1  */ 

vl  =  rho;  /*5000*/ 

) 

struct  object  *  create  object  ( struct  object  *obj ) 
{  obj  =  (struct  object  *)malloc(sizeof  (struct  object)); 

obj->polygons  =  NULL; 

obj->number  =0; 

return  (obj); 


void  release_object  ( struct  object  *obj  ) 
{ 

struct  polygon  *p; 
struct  my_point  *d; 

if  (  obj->number  >  0  )  ( 
while  ( obj->polygons  !=  NULL )  { 
p  =  obj->polygons, 

obj->polygons  =  obj->polygons->next; 
while  ( p->points  !=  NULL  )  ( 
d  =  p->points; 

p->points  =  p->points->next, 
free  (d); 

} 

free(p);    )  ) 
free  (obj); 

) 

struct  polygon  *  add_polygon  ( struct  object  *obj,  struct  polygon  *p,  int  line ) 
{  p  =  (struct  polygon  *)malloc(sizeofl;struct  polygon)); 

p->next  =  NULL; 

p->points  —  NULL; 

p->line  =  line; 

if  ( obj->polygons  =  NULL )  { 
obj->polygons  =  p;  ) 
else  ( 

p->next  =  obj->polygoris; 
obj->polygons  =  p;  ) 

obj->numbert-+; 
return  ( p  ); 

) 

void  proj  ( struct  my_point  *p,  int  *sx,  int  *sy,  struct  roatrix  *mat ) 
(  int  xt,  yt,  zt,  xe,  ye,  ze,  xw,  yw,  zw, 

/*  Apply  current  global  Matrix  (mat)  */ 
xt  =  p->x*mat->m[0][0]  + 

p->y*mat->m[l][0]  + 

p->z*mat->m[2][0]  + 
mat->m[3][0]; 

yt  =  p->x*mat->m[01[  1]  + 

p->y*mat->m[l][l]  + 
p->z*mat->m[2][l]  + 
mat->mp][li; 

zt  =  p->x*mat->m[0][2]  + 

p->y*mat->m[l][2]  + 
p->z*mat->m[2][2]  + 
mat->m[3][2]; 

xw  =  xt;  yw  =  yt;  zw  =  zt; 

/*  Translate  to  view  */ 

xe  =*  va*xw;  /*  +  vb*yw;  */ 

ye  =  /*  ve*xw  +  vf  */     yw,      /*+  vg*zw,  */ 

ze  =  /*  vi'xw  +  vj*yw  +  vk*  */  zw  +  vl, 

/*  Translate  to  perpective  view  */ 
*sx  =  screendist  *  xe  /  ze; 
*sy  =  screendist  *  ye  /  ze; 

) 

void  mini_proj  ( struct  my_point  *p,  int  *sx,  int  *sy,  int  *sz,  struct  matrix  *mat ) 
{  int  xt,yt,zt,  xe,ye,ze,  xw,yw,zw; 

/*  Apply  current  global  Matrix  (mat)  */ 
*sx  "  p->x*mat->m[0][0]  + 

p->y*mat->m[l][0]  + 

p->z*mat->m[2][0]  + 
mat->m[3][0]; 

*sy  =  p->x*mat->m[0][l]  + 

p->y*mat->m[l][l]  + 
p->z*mat->m[2][l]  + 
mat->m[3][l], 

*sz  =  p->x*mat->m[0][2]  + 

p->y*mat->m[l][2]  + 
p->z*mat->m[2][2]  + 
raat->m[3][2]; 


void  drawobject  ( struct  object  *obj,  stiuct  matrix  "mat,  int  color  ) 

p  =  add_polygon  ( hand,  p,  1 ), 

{  struct  polygon  *p;  struct  my_point  *d; 

add_vertex  ( p,  400, 400, 1 000 ), 

int  x,  y,  x2,  y2,  *sx,  *sy,  *sx2,  *sy2,  svx,  svy; 

add  vertex  ( p,  450, 400,  1000 ), 

setcolor  ( color ); 

p  =  add_polygon  ( hand,  p,  1  ); 

sx  =  &x;  sy  =  &y;  sx2  =  &x2;  sy2~&y2; 

add_vertex  (  p,  400, 400, 300 ); 

add_vertex  ( p,  450,  400, 300  ), 

p  =  obj->polygons. 

p  =  add_polygon  (  hand,  p,  1  ); 

while  (  p  !=  NULL  )  { 

d  =  p->points; 

addvertex  ( p,  400, 0, 300 ); 

proj  (  d,  sx,  sy,  mat  ); 

add  vertex  ( p,  450, 0, 300 ); 

svx  =  d->ax  =  x;                                   /•  Save  actual  points  for  erase  */ 

svy  =  d->ay  =  y; 

return  ( hand  ); 

d  =  d->next; 

} 

while  (  d  N  NULL  )  { 

struct  object  *  make_fingerl  object  (  struct  object  "f ) 

proj(d,  sx2,  sy2,  mat ); 

{  struct  polygon  *p; 

d->ax  =  x2;                                      /*  Save  actual  points  for  erase  */ 

d->ay  =  y2; 

f  =  create_object  (  f ); 

line  (screen_x2-x,  screen_y2-y,  screen_x2-  x2,  screen_y2  -  y2 ); 

/*  p  =  add_polygon  (  f,  p,l ); 

d  =  d->next;   x  =  x2;         y  =  y2; 

add_vertex  ( p,  400,400, 1 000 ); 

} 

add_vertex  (  p,  400,400, 1 300 ); 

if(p->line  =  0)  ( 

add  vertex  (  p,  400,400, 1 500  ), 

line  ( screen  x2-x,  screen_y2-y,  screen_x2-svx,  screen_y2-svy ); 

add  vertex  (  p,  400,400, 1 600  );  */ 

}     p  =  p->next;  } 

} 

/*  First  segment  of  finger  -  front  */ 

p  =  addjiolygon  ( f,  p,  0 ); 

void  erase_object  (  struct  object  *obj  ) 

add_vertex  (  p,400, 400,  1 300  ); 

(  struct  polygon  *p;  struct  my_point  *d; 

add_vertex  (  p,400, 400,  1000  ); 

int  svx,  svy,  x,  y; 

add_vertex  ( p,400, 343,  1 000 ); 

add_vertex  ( p,400, 343,  1 300 ); 

setcolor  (BLACK.); 

p  =  obj->polygons, 

/*  First  segment  of  finger  -  back  */ 

while  (p!=  NULL)  { 

p  =  add_polygon  (  f,  p,  0  ); 

d  =  p->points;     x  =  svx  =  d->ax;     y  =  svy  =  d->ay; 

add_vertex  (  p,450, 400, 1300  ), 

d  =  d->next; 

addvertex  (  p,450, 400, 1000  ); 

while  (d!=  NULL)  { 

add_vertex  (  p,450, 343, 1000  ); 

tine  (  screen_x2-x,  screen_y2-y,  screen_x2-d->ax,  scTeen_y2-d->ay ); 

add  vertex  (  p,450,  343,  1300  ); 

x  =  d->ax; 

y  =  d->ay; 

/*  Line  for  first  segment  */ 

d  =  d->next; 

p  =  add_polygon  (  f,  p,  1  ); 

) 

add  vertex  ( p,400, 400, 1300 ); 

if  ( p->line  =  0 )  { 

add_vertex  ( p,450, 400, 1300 ); 

line  ( screen  x2-x,  screen_y2-y,  screen  x2-svx,  screen_y2-svy ); 

} 

p  =  add_polygon  (  f,  p,  1 ); 

p  =  p->next;  } 

) 

add  vertex  ( p,400, 343,  5000 ); 

add_vertex  ( p,450, 343,  1000 ); 

void  add_vertex  ( struct  polygon  *p,  int  x,  int  y,  int  z ) 

(  struct  my_point  *d,  *temp, 

p  -  add _polygon  (  f,  p,  1 ); 

temp  =  p->points; 

add_vertex  ( p,400, 343,  1300 ); 

if( temp  !=  NULL)  { 

add  vertex  ( p,450, 343,  1300 ); 

while  ( temp->next  !=  NULL  )    {  temp  =  temp->next,  }  } 

return  ( f ); 

d  -=  (struct  roy  joint  *)malloc(sizeof(struct  my_point)), 

} 

struct  object  *  make  Jingerl2_object  ( struct  object  *f ) 

d->x  =  x;  d->y=*y;  d->z  =  z; 

d->oldx  =  x;  d->oldy  =  y;  d->oldz  =  z; 

(  struct  polygon  *p, 

d->next  =  NULL; 

f  =  createobject  ( f ); 

if(p->points  =  NULL)  {    p->points  =  d,  ) 

else  (   temp->next  =  d;  } 

) 

/*  Second  segment  of  finger  -  front  */ 

p  =  add_polygon  (  f,  p,  0 ); 

struct  object  *  make  hand_object  (  struct  object  'hand  ) 

add_vertex  ( p,400, 400, 1 500 ); 

{  struct  polygon  *p; 

add_vertex  ( p,400, 400, 1 300 ); 

hand  =  createobject  ( hand ); 

add_vertex  ( p,400, 343, 1300 ); 

add_vertex  ( p,400, 343, 1500 ), 

p  =  add_polygon  ( hand,  p,  0 ); 

add_vertex  ( p,  400,0,1000  ); 

/*  Second  segment  of  finger  -  back  */ 

add_vertex  ( p,  400,400,1000  ), 

p  =  add_polygon  (  f,  p,  0  ); 

add_vertex  ( p,  400,400,300 ); 

add  vertex  ( p,450, 400, 1500 ); 

add_vertex  ( p,  400,0,300 ); 

addvertex  ( p,450, 400, 1300  ); 

add_vertex  ( p,450, 343, 1300 ), 

p  =  addjralygon  ( hand,  p,  0 ); 

add_vertex  (  p,450, 343,  1500  ), 

add_vertex  (  p,  450, 0,  1000  ); 

addvertex  ( p,  450, 400,  1000 ); 

/*  Lines  for  second  segment  */ 

add  vertex  ( p,  450, 400, 300  ), 

p  =  add_polygon  ( f,  p,  1 ); 

add_vertex  ( p,  450, 0, 300 ); 

add  vertex  (p,400,  400,  1500 ); 

add_vertex  (  p,450, 400,  1 500  ); 

p  =  addjiolygon  (  hand,  p,  1  ), 

p  =  add_polygon  ( f,  p,  1 ); 

add_vertex  ( p,  400, 0,  1000 ), 

add_vertex  (  p,400, 343,  1 500 ); 

add_vertex  ( p,  450, 0,  1 000 ); 

add  vertex  (  p,450, 343,  1500 ); 

return  ( f ); 

? 

struct  object  *  make  fingeil  3_object  ( struct  object  *f ) 
(  struct  polygon  *p, 
f  =  create_object  (  f  ); 

/*  Third  segment  of  finger  -  front  */ 
p  =  add_potygon  ( f,  p,  0  ); 
add_vertex  (  p,400,  400, 1600 ); 
add_vertex  ( p,400, 400, 1500 ); 
add_vertex  ( p,400, 343,  1500 ); 
add_vertex  (  p,400,  343,  1600 ), 

/*  Third  segment  of  finger  -  back  */ 
p  =  add_polygon  (  £  p,  0  ); 
add^vertex  (  p,450,  400,  1600 ); 
add_vertex  (  p,450,  400,  1500  ); 
add_vertex  ( p,450,  343,  1500 ); 
add_vertex  (  p,450,  343,  1600 ); 

/*  Lindes  for  third  segment  */ 
p  =  add_polygon  ( f,  p,  1  ); 
add_vertex  (  p,  400,  400,  1600  ); 
addvertex  ( p,  450,  400,  !600  ); 

p  =  add_polygon  (  f,  p,  I  ); 
addvertex  ( p,  400, 343, 1600 ); 
add  vertex  ( p,  450, 343,  1 600  ); 
return  ( f ),} 

struct  object  *  make  finger2_object  ( struct  object  *f ) 
{  struct  polygon  *p, 
f  =  create_object  ( f  ); 

/*  First  segment  of  finger  -  front  */ 
p  =  add_polygon  ( f,  p,  0 ); 
addjvertex  (  p,400, 285, 1300 ); 
add_vertex  (  p,400,  285,  1 000 ); 
add_vertex  (  p,400,  228,  1000  ); 
add  vertex  (  p,400,  228,  1 300 ); 

/*  First  segment  of  finger  -  back  */ 
p  =  add_polygon  (  f,  p,  0  ), 
add_vertex  (  p,450,  285,  1300 ); 
add_vertex  ( p,450,  285,  1000 ); 
add  vertex  (  p,450,  228,  1000 ); 
add  vertex  (  p,450,  228,  1300 ); 

/*  Line  for  first  segment  */ 
p  -  add_polygon  ( f,  p,  1  ); 
add_ vertex  ( p,400,  285,  1300 ); 
add_vertex  ( p,450,  285,  1300 ); 

p  =  add_polygon  (  £  p,  1  ), 
add_vertex  ( p,400, 228,  1000 ); 
add  vertex  ( p,450, 228,  1000 ); 

p  =  addj>olygon  ( f,  p,  •  ); 
add  vertex  ( p,400,  228,  1300 ); 
add_vertex  ( p,450, 228,  1300 ), 
return  (  f ); 

} 

struct  object  *  make_finger22  object  ( struct  object  *f ) 
{  struct  polygon  *p; 
f  =  create_object  (  f ); 

/*  Second  segment  of  finger  -  front  */ 
p  =  add_polygon  (  f,  p,  0  ); 
add  vertex  ( p,400, 285,  1500 ); 
add_vertex  ( p,400, 285,  1300 ); 
add^vertex  ( p,400, 228,  1300 ); 
add  vertex  ( p,400, 228,  1500 ); 

/"  Second  segment  of  finger  -  back  */ 
p  =  add_polygon  (  f,  p,  0  ); 
add_vertex  ( p,450, 285,  1500 ), 
add_vertex  ( p,450, 285,  1300 ); 
add_vertex  ( p,450, 228,  1300 ); 
add_vertex  ( p,450,  228,  1500 ); 

/*  Lines  for  second  segment  */ 
p  =  add_polygon  ( f,  p,  1  ); 
add_vertex  (  p,400,  285,  1500  ); 
add  vertex  (  p,450,  285,  1500  ); 
p  =  add  jjolygon  ( f,  p,  1  ); 
add_vertex  ( p,400, 228,  1500  ); 
addvertex  ( p,450, 228,  1500 ); 
return  (  f );)  


struct  object  *  make_finger23  object  ( struct  object  *f ) 
(  struct  polygon  *p, 

f  =  createobject  ( f ); 

/*  Third  segment  of  finger  -  front  */ 
p  =  add_polygon  (  f,  p,  0  ); 
add_vertex  ( p,400,  285, 1600 ); 
add_vertex  (  p,400,  285,  1 500  ); 
add_vertex  (  p,400, 228,  1500  ); 
add_vertex  (  p,400, 228,  1600 ); 

/*  Third  segment  of  finger  -  back  */ 
P  =  add_polygon  (  f,  p,  0  ); 
add_vertex  ( p,450, 285,  1600 ); 
add_vertex  ( p,450, 285,  1 500 ); 
add_vertex  (  p,450,  228,  1 500  ); 
add_vertex  (  p,450, 228,  1 600 ); 

/*  Lindes  for  third  segment  "/ 
p  =  add_polygon  (  f,  p,  1 ), 
add_vertex  (  p,  400, 285, 1 600 ); 
add_vertex  ( p,  450, 285,  1600  ); 

p  =  add_polygon  {  £  p,  1 ); 
add_vertex  ( p,  400,  228,  1600 ); 
add  vertex  ( p,  450,  228, 1 600 ), 

return  ( f ); 

} 

struct  object  *  make _finger3_object  ( struct  object  *f ) 
(  struct  polygon  *p; 

f  =  create_object  (  f ); 

/*  First  segment  of  finger  -  front  */ 
p  =  addjolygon  ( f,  p,  0 ); 
add_vertex  ( p,400, 1 71 ,  1 300  ); 
add_vertex(p,400,  171,  1000 ), 
add_vertex(p,400,  114,  1000); 
add_vertex  (  p,400, 1 14, 1 300  ); 

/*  First  segment  of  finger  -  back  */ 
p  =  add_polygon  (  f,  p,  0  ); 
add_vertex  (  p,450,  171,  1300 ); 
add_vertex  ( p,450,  171, 1000 ); 
add_vertex  ( p,450,  1 14,  1000 ); 
add_vertex  ( p,450,  1 14,  1300 ); 

/*  Line  for  first  segment  */ 
p  =  add_polygon  ( £  p,  1 ); 
add_vertex  (  p,400,  171,  1300 ); 
add_vertex  ( p,450, 171, 1300 ); 

p  =  add_polygon  ( f,  p,  1  ); 
add_vertex  (  p,400,  1 14, 1000 ); 
add  vertex  (  p,450, 1 14, 1000 ); 

p  =  addjiolygon  ( f,  p,  1  ); 
addvertex  (  p,400, 1 14, 1300 ); 
add_vertex  {  p,450,  1 14,  1300 ); 

return  ( f ); 

) 

struct  object  *  make  J5nger32_object  ( struct  object  *f ) 
{  struct  polygon  *p; 

f  =  createobject  ( f ); 

/*  Second  segment  of  finger  -  front  */ 
p  =  add  polygon  ( f,  p,  0  ); 
add_vertex  ( p,400, 171, 1500  ); 
add^vertex  (  p,400, 171, 1300  ); 
add  vertex  ( p,400, 114, 1300  ); 
add  vertex  ( p,400, 114, 1500); 

/*  Second  segment  of  finger  -  back  */ 
p  =  add jiolygon  ( f,  p,  0  ); 
add_vertex  ( p,450,  1 7 1 ,  1 500 ); 
add_vertex(p,450,  171,  1300); 
add_vertex  ( p,450,  1 14,  1300 ); 
add_vertex(p,450,  114,  1500); 


*  Lines  for  second  segment  */ 

/*  Lines  for  second  segment  */ 

p  =  add_polygon  ( f,  p,  1  ); 

p  =  add_polygon  (  £  p,  1  ), 

add  vertex  ( p,400, 171,  1500); 

add  vertex  (  p,400, 57,  1 500 ); 

add_  vertex  (p,450,  171,  1500 ); 

add_vertex  (  p,450, 57, 1 500 ); 

p  =  add_polygon  ( £  p,  1 ); 

p  =  add_polygon  ( £  p,  1  ); 

add  vertex  (  p,400,  1 1 4, 1 500  ); 

add_vertex  ( p,400, 0, 1500 ); 

add  vertex  (  p,450,  1 1 4, 1 500  ); 

add_vertex  ( p,450, 0,  1500 ), 

return  ( f );) 

return  (  f ), 

struct  object  *  make_frnger33_object  ( struct  object  *f ) 

) 

{  struct  polygon  *p, 

struct  object  *  make_finger43_object  (  struct  object  *f ) 

f=  create  object  (f); 

{  struct  polygon  *p; 

/*  Third  segment  of  finger  -  front  */ 

p  =  add_polygon  ( £  p,  0 ); 

f  =  CTeate_object  (  f  ); 

add  vertex  ( p  400, 171,  1600  ); 

add  vertex  (  p,400,  171,  1500); 

/*  Third  segment  of  finger  -  front  */ 

add  vertex  (p,400.  114, 1500), 

p  =  add_polygon  ( £  p,  0 ); 

addvertex  ( p,400,  114, 1600  ); 

add_vertex  ( p,400, 57, 1600 ); 

add_vertex  ( p,400,  57,  1 500 ); 

/*  Third  segment  of  finger  -  back  */ 

addvertex  ( p,400, 0, 1 500  ); 

p  =  add_polygon  (  f,  p,  0 ); 

add  vertex  ( p,400, 0, 1 600  ); 

add  vertex  ( p,450,  171,  1600 ); 

add  vertex  ( p,450,  171,  1500); 

/*  Third  segment  of  finger  -  back  */ 

add_yertex  ( p,450,  1 1 4,  1 500 ), 

p  =  add_polygon  (  f,  p,  0 ); 

add  vertex  ( p,450,  114,  1600 ); 

add_vertex  ( p,450, 57, 1600 ); 

add  vertex  ( p,450,  57,  1 500  ); 

/*  Lindes  for  third  segment  */ 

add__vertex  ( p,450,  0,  1 500  ); 

p  =  add_polygon  (  £  p,  1 ); 

add_vertex  ( p,450, 0, 1600  ); 

add  vertex  (  p,  400,  171,  1 600  ); 

add  vertex  ( p,  450,  171,  1600 ); 

/*  Lindes  for  third  segment  */ 

p  =  add_polygon  (  f,  p,  1  ); 

p  =  add  polygon  (  £  p,  1 ); 

add  vertex  ( p,  400,  57,  1600  ); 

add_vertex  ( p,  400, 1 14,  1 600 ); 

add_vertex  ( p,  450, 57, 1 600  ); 

add_vertex  ( p,  450,  1 14,  1 600 ); 

return  ( f ); 

p  =  add_polygon  ( f,  p,  1 ); 

} 

add  vertex  ( p,  400,  0, 1 600  ); 

struct  object  *  make  finger4  object  (  struct  object  *f ) 

add_vertex  ( p,  450,  0,  1 600  ); 

{  struct  polygon  *p; 

return  ( f ); 

} 

f  =  create  object  (  f ); 

/*  First  segment  of  finger  -  front  */ 

p  =  add_polygon  (  £  p,  0 ); 

struct  matrix  *  matrixmult  ( struct  matrix  *a,  struct  matrix  *b ) 

add  vertex  ( p,400, 57, 1300 ); 

(  int  i,  j,  k;  float  t;  struct  matrix  *c; 

add_vertex  ( p,400, 57,  1000 ), 

add  vertex  ( p,400, 0, 1000 ); 

c  =  (struct  matrix  *)malloc(sizeof(struct  matrix)); 

add  vertex  (  p,400, 0,  1300  ); 

for(i=0;i<4;i++)  { 

/*  First  segment  of  finger  -  back  */ 

for(j=0j<4J++)  ( 

p  =  add_polygon  (  f,  p,  0 ); 

t  =  0.0; 

add_vertex  ( p,450, 57,  1300 ), 

for  (k=0,k<4;k++)  ( 

add_vertex  ( p,450, 57,  1000 ), 

t  =  t  +  a->m[i][k]  *  b->m[k][j]', 

add_vertex  ( p,450, 0,  1000  ), 

) 

add  vertex  ( p,450, 0, 1300  ), 

c->m[i][j]  =  t;  )  ) 

/*  Line  for  first  segment  *l 

return  ( c ); 

p  =  add__polygon  (  £  p,  1 ); 

) 

struct  matrix  *  object  translate  (  struct  matrix  "mat,  int  transx,  int  transy,  nit  transz  ) 

add  vertex  ( p,400,  57,  1300  ); 

add_vertex  (  p,450,  57,  1300  ); 

(  struct  matrix  *b,  *c; 

p  =  add  jjolygon  (  £  p,  1 ); 

b  =  (struct  matrix  *)malloc(sizeof(struct  matrix)), 

add  vertex  ( p,400, 0,  1000  ), 

add  vertex  ( p,450, 0, 1000 ); 

identity  ( b ); 

p  =  add_polygon  (  £  p,  1  ); 

b->m[3][0]  =  transx; 

add  vertex  ( p,400, 0, 1300 ); 

b->m[3][i]  =  transy; 

add_vertex  ( p,450, 0, 1300 ), 

b->m[3][2]  =  transz; 

return  ( f ); 

) 

c  =  matrixmult  (  mat,  b ); 

free  ( mat );  free  (b); 

struct  object  *  make_finger42_object  (  struct  object  *f ) 

{  struct  polygon  *p; 

return  ( c ); 

f  =  create  object  (  f ); 

) 

/*  Second  segment  of  finger  -  front  */ 

p  =  add_polygon  (  £  p,  0 ); 

add_vertex  ( p,400, 57, 1 500 ), 

add  vertex  ( p,400,  57,  1300  ), 

add_vertex  ( p,400, 0,  1300 ), 

add_vertex  ( p,400, 0,  1500 ); 

/*  Second  segment  of  finger  -  back  */ 

p  =  add_polygon  ( £  p,  0 ); 

add  vertex  ( p,450, 57, 1 500 ); 

add_vertex  ( p,450, 57, 1300 ); 

addvertex  ( p,450, 0, 1300 ); 

add  vertex  ( p,450, 0, 1 500 ), 

struct  matrix  *  objectscale  ( struct  matrix  "mat,  float  scale ) 
(  struct  matrix  *b,  *c, 

b  =  (struct  matrix  *)malloc(sizeof[struct  matrix)); 

identity  ( b  ); 
b->m[0][0]  *=  scale; 
b->m[l][l]  *=  scale; 
b->m[2][2]  *=  scale; 
c  =  matrixmult  ( mat,  b ); 
free  (mat);  free(b); 

retum  ( c  ); 

) 


struct  matrix  *  object_xrot  (  struct  matrix  *mat,  float  deg ) 
{ 

float  thecos,  thesin; 
struct  matrix  *b,  *c; 

thecos  =  cos  ( deg*to_radians ); 
thesin  =  sin  (  deg*to_radians ); 
b  =  (struct  matrix  *)malloc(sizeof(struct  matrix)); 

identity  ( b ); 
b->m[l][l]=thecos; 
b->m[l][2J  =  thesin; 
b->m[2][l]- -thesin; 
b->m[2][2]  =  thecos; 
c  =  matrixmult  ( mat,  b ), 
free  ( mat );  free  ( b ), 

return  ( c  ); 

) 

struct  matrix  *  object_yrot  (  struct  matrix  "mat,  float  deg  ) 
(  float  thecos,  thesin; 
struct  matrix  *b,  *c; 

thecos  =  cos  (  deg*to_radians  ); 
thesin  =  sin  ( deg*to_radians ), 
b  =  (struct  matrix  *)malloc(svzeoflstruct  matrix)); 

identity  ( b ); 
b->m[0][0]  =  thecos, 
b->m[0][2]  =  -thesin, 
b->m[2][0]  =  thesin; 
b->m[2][2]  =  thecos, 
c  =  matrixmult  ( mat,b ), 
free  (mat),  free(b); 

return  ( c ); 

) 

struct  matrix  *  object_zrot  ( struct  matrix  *mat,  float  deg ) 
{ 

float  thecos,  thesin; 
struct  matrix  *b,  *c, 

thecos  =  cos  ( deg'toradians ); 
thesin  =  sin  ( deg'toradians ); 
b  =  (struct  matrix  *)malloc(sizeof(struct  matrix)); 

identity  (  b ), 
b->m[0][0]  =  thecos, 
b->m[0][l]  =  thesin; 
b->m{l][oj  =  -thesin; 
b->m[l][l]  =  thecos; 
c  =  matrixmult  ( mat,  b  ); 
free  (mat );  free  (b  ), 

return  (  c ); 

) 

void  mainO 
{  charch; 

int  graphmode,  graphdriver,  i,  x,  y,  z; 

struct  my_point  jointone,  jointtwo,  joint_three; 

int   glovex=0,  glovey=0,  glovez=0,  gloveroll=0,  close=0,  change=0; 


joini_one.x  =  450;  joint_one.y  =  400;  joint_one.z  =  1000, 
jointjwo.x  =  450;  jointjwo.y  =  400;  joint_two.z=  1300; 
jointjhree.x  =  450;  jointthree.y  =  400;  jointjhree.z  =  1 500; 

graphmode  =  VGAH1;  graphdriver  =  VGA; 
initgraph  ( &graphdriver,  Agraphmode,  "c:\tc" ), 

hand_matrix  =  (struct  matrix  *)malloc(sizeof(struct  matrix)); 
fingerl_matrix  =  (struct  matrix  *)malloc(sizeof(struct  matrix)); 
finger2  matrix  =  (struct  matrix  *)maHoc(sizeoflstruct  matrix)); 
fingeT3_marrix  =  (struct  matrix  *)malloc(sizeof(struct  matrix)); 

identity  ( hand_matrix  );  identity  ( fingerl  _matrix ); 
identity  (  fingert^matrix  );  identity  (  finger3_matrix  ); 


glove_init  (  HIRES,  NULL ); 

printf  { "Exercise  the  glove  and  then  Press  any  key!!\n"  ); 
getchO; 

createviewtransformationO; 
cleardeviceO; 

hand  =  make_hand_object  (  hand ); 
fingerl  =  make_fingerl_object  ( fingerl  ); 
finger2  =  make_frnger2_object  ( finger2 ); 
finger3  =  make_finger3_object  ( finger3 ); 
finger4  =  make_finger4_object  ( fingerf ); 

fingerl_2  =  make  finger  12_object  (  fingerl ); 
finger2_2  =  make_finger22_object  (  finger2  ); 
finger3_2  =  make_finger32_object  ( finger3  ); 
finger4_2  =  make_finger42  object  ( finger4  ); 

fingerl_3  -  makeJBnger!3_object  (  fingerl  ); 
finger2_3  =  make_finger23_object  ( finger2 ); 
fingeT3_3  =  make_finger33_object  ( finger3 ); 
finger4  3  =-  make_finger43  object  (  finger4  ); 

x  =  hand->polygons->points->x; 
y  =  hand->polygons->points->y; 
z  -  hand->polygons->points->z; 

hand  matrix   -  object  translate  (  hand  matrix,  -x,  -y,  -z ), 
handmatrix  =  object_zrot  ( handmatrix,  90  ); 
hand  matrix   =  object  translate  (  hand  matrix,  x,  y,  z ); 
fingerl_marrix  =  object  translate  (  fingerl  matrix,  -x,  -y,  -z  ); 
fingerl_matrix  -  object_zrot  ( fingerl  matrix,  90 ); 
fingerl_matrix  =  object_translate  ( finger  1  matrix,  x,  y,  z ); 

finger2_matrix  =  object  translate  ( finger2_matrix,  -x,  -y,  -z  ); 
fingeT2_rnatrix  =  object_zrot  ( finger2_matrix,  90 ); 
fingeT2_matrix  =  object  translate  (  finger2_matrix,  x,  y,  z ), 

finger3_matrix  =  objecttranslate  ( finger3_matrix,  -x,  -y,  -z ); 
finger3_matrix  =  object_zrot  (  finger3_matrix,  90  ); 
finger3_matrix  =  object  translate  ( finger3  matrix,  x,  y,  z ); 

draw_object  ( hand,  hand_matrix,  RED ); 
draw  object  ( fingerl,  fingerl  matrix,  RED  ); 
draw  object  ( finger2,  fingerl  matrix,  RED ); 
draw  object  ( finger3,  fingerl  matrix,  RED ); 
draw_object  (  finger4,  fingerl  matrix,  RED ); 


draw  object  (  fingerl  2,  finger2_matrix,  RED  ); 
draw  object  (  finger2_2,  finger2_matrix,  RED ); 
draw  object  (  finger3_2,  finger2_matrix,  RED  ); 
draw  object  ( finger4_2,  finger2_matrix,  RED  ); 

draw  object  ( fingerl_3,  finger3_matrix,  RED ); 
draw  object  (  finger2_3,  finger3_matrix,  RED  ), 
draw  object  ( finger3_3,  finger3_matrix,  RED ), 
draw  object  ( finger4_3,  finger3_matrix,  RED ), 


struct  object  *hand,*fingerl,*finger2,*finger3,*finger4,*fingerl_2, 
*  finger2_2,*fingeT3  2,*ringer4_2,*fingerl_3,*fingeT2_3, 
*finger3_3,*finger4_3; 

struct  matrix  *hand  matrix,  *fingerl_marrix,  *finger2_matrix,  *finger3_matrix; 

glove  data  glov;  


while  (  ch  !=  'q' ) 
( 

mini  jiroj  ( &joint_two,  fee,  &y,  &z,  fingerlmatrix ); 

finger2_matrix  »  object_translate  ( finger2_matrix,  -x,  -y,  -z ); 

while  (Iglove  readyO)  glove  delayO, 

if(gloveroU=l)  ( 

glove  read(&glov); 

fingerlmatrix  =  object_yrot  (  finger2_matrix,  180  ); 

x  =  y  =  z  =  0; 

finger2  matrix  =  objectjranslate  (  finger2_matrix,  x-300,  y,  z-358  ); 

if  (  glov.x  !=  glovex  )  { 

else  { 

change  =  2; 

finger2  matrix  =  object  xrot  ( fingeT2_matrix,  180); 

if  ( glov.x  >  glovex  ) 

finger2  matrix  =  object  translate  (  finger2_matrix,  x,  y-300,  z-358 ); 

x  =  abs(glov.x-glovex)  *  25; 

} 

else 

mini_proj  (  &joint_three,  &x,  &y,  &z,  finger3_matnx ); 

x  =  abs(glov.x-glovex)  *  -25, 

finger 3_matrix  =  object  translate  ( finger3_matrix,  -x,  -y,  -z ); 

glovex  =  glov.x;  } 

if  (  gloveroU  =  1  )  ( 

finger3_matrix  =  object_yrot  ( finger3_matrix,  90  ), 

if  ( glov.y  !=  glovey  )  ( 

finger3_matrix  =  object  translate  (  finger3  matrix,  x-250,  y,  z-760  ); 

change  —  2; 

} 

else  { 

if  ( glov.y  >  glovey ) 

y  —  abs(glov  y-glovey)  *  25; 

finger3_matrix  =  object_xrot  ( finger3_matnx,  -90 ); 

finger3_matrix  =  object  translate  (  finger3  matrix,  x,  y-250,  z-760  ); 

y  ~  abs(glov.y-glovey)  *  '25; 

)    close  =1;  ) 

olovev  =  fflov  v*  "1 

if  ((glov.rot  >=  3 )  &£. (glovrot  <=10 )  && ( gloveroU  =  0)) 

if  (  glov.z  !=  glovez  )  { 

(    minijjroj  (  hand->polygons->points,  &x,  &y,  &z,  handmatrix  ); 

change  =  2; 

handmatrix  =  object  translate  (  hand_matrix,  -x,  -y,  -z ); 

if  (  glov.z  >  glovez  ) 

hand_matrix  =  objectzrot  (  hand_matrix,  -90  ), 

z  =  abs(glov  z-glovez)  *  -200; 

hand_matrix  =  object_translate  (  hand  matrix,  x,  y,  z ), 

else 

fingerl_matrix  =  objecttranslate  (  finger  l_matrix,  -x,  -y,  -z); 

z  =  abs(glov  z-glovez)  *  200; 

fingerlmatrix  =  objectzrot  ( fingerl_matrix,  -90 ), 

glovez  =  glov.z;  } 

fingerl_matrix  =  objecttranslate  ( fingerlmatrix,  x,  y,  z ); 

finger2_matrix  =  object  translate  ( nnger2_matrix,  -x,  -y,  -z ); 

if  (  change  =  2  )  ( 

finger2_matrix  =  object_zrot  (  finger2  matrix,  -90  ); 

hand  matrix  =  object_translate  (  hand_matrix,  x,y,z ); 

finger2_matrix  =  object_translate  ( finger2_matrix,  x,  y,  z ); 

fingerl  matrix  =  objecttranslate  (  fingerl  matrix,  x,y,z  ); 

finger3_matrix  =  object  translate  (  finger3  matrix,  -x,  -y,  -z ); 

finger2_matrix  =  object_translate  ( nnger2_matrix,  x,y,z  ); 

finger3  jnatrix  =  objectzrot  ( fingeT3 matrix,  -90 ); 

6nger3_matrix  =  object  translate  ( 6ngei3  matrix,  x,y,z  ); 

} 

finger3  matrix  =  object_translate  ( finger3_matrix,  x,  y,  z ); 

gloveroll  =  1 ;  ) 

if  ( change  ^=  2 )  { 

if  ((glov.rot  <  2 )  Sl&  ( gloveroU  =  1 ))  { 

erase  object  ( hand ),    erase  object  ( fingerl ); 

gloveroU  =  0; 

erase  object  (  finger2  );    eraseobject  (  finger3 ); 

mini _proj  ( hand->polygons->points,  &x,  &y,  &z,  hand  matrix  ), 

erase  object  (  6nger4  ),    erase  object  (  fingerl  2  ); 

hand_matrix  =  object_translate  ( hand  matrix,  -x,  -y,  -z  ); 

erase  object  (  finger2_2  );    eraseobject  (  finger32  ); 

hand_matrix  =  objectzrot  ( handmatrix,  90 ), 

erase  object  (  finger4  2  );    erase  object  (  fingerl  3  ); 

hand_matrix  =  object  translate  ( hand  matrix,  x,  y,  z  ); 

erase_object  ( finger2_3 );    erase  object  ( finger3_3 ); 

fingerl  matrix  =  object  translate  (  finger l_matrix,  -x,  -y,  -z ); 

erase  object  (  finger4_3  ); 

fingerl  matrix  =  object  zrot  (  finger l_matrix,  90  ); 

change  =1;  } 

fingerl  matrix  =  object  translate  (  fingerl  matrix,  x,  y,  z ); 

finger2  matrix  =  object  translate  (  finger2_matrix,  -x,  -y,  -z ); 

if((glov.keys&.0xff)<=0xA0)    {  ch  =  'q',  } 

finger2_matrix  =  objectzrot  (  finger2_matrix,  90 ), 

finger2_matrix  =  object_translate  (  finger2_matrix,  x,  y,  z ); 

if  (((glov.fingers  &  Oxff )  <=  0x80  )  &&  (  close  =  1  ) )  { 

finger3_matrix  =  object  translate  (  finger3_matrix,  -x,  -y,  -z ); 

mini_proj  (  &joint  one,  &x,  &y,  &z,  fingerl  matrix  ); 

finger3_matrix  =  object  zrot  (  finger3_matrix,  90  ), 

fingerl  matrix  =  object  translate  (  fingerl  matrix, -x, -y, -z). 

finger3_matrix  -  object  translate  (  finger3_matnx,  x,  y,  z ); 

if  ( gloveroH  =  1  ) 

} 

fingerl  matrix  =  object  yrot  (  fingerl  matrix,  90 ), 

if  ( change  —  1 )  { 

else 

drawobject  (  hand,  hand  matrix,  RED  ); 

fingerl  matrix  =  objectxrot  {  fingerl  matrix,  -90 ); 

drawobject  ( fingerl,  fingerl  matrix,  RED ); 

fingerl  matrix  -  object  translate  ( fingerl_matrix,x,  y,  z); 

draw  object  (  finger2,  finger  l_matrix,  RED ); 

draw  object  (  finger3,  fingerl  matrix,  RED ); 

mini_proj  ( &joint_two,  &x,  &y,  &Z,  finger2  matrix ); 

draw  object  (  finger4,  fingerl  matrix,  RED ); 

finger2  matrix  —  object  translate  ( finger2  matrix,  -x,  -y,  -z ); 

draw  object  ( finger!  2,  finger2_matrix,  RED  ) 

if  ( gloveroU  =  1  )  { 

draw  object  (  finger2_2,  finger2_matrix,  RED  ) 

finger2„matrix  =  object_yrot  (  finger2_matrix,  1 80  ); 

draw  object  (  finger3_2,  finger2_matrix,  RED  ) 

finger2  matrix  =  object  translate  (  finger2  matrix,  x+300,  y,  z+358 ); 

} 

draw_object  (  finger4_2,  finger2_matxix,  RED  ) 

draw_object  (  fingerl  3,  finger3_matrix,  RED ) 

else  { 

draw_object  (  finger2_3,  finger3_matrix,  RED ) 

finger2_matrix  =  object_xrot  (  finger2_matrix,  180  ); 

draw_object  (  finger3_3,  finger3_matrix,  RED  ) 

finger2  matrix  =  object  translate  (  finger2_matrix,  x,  y+300,  z+358  ); 

draw  object  (  fingeT4  3,  finger3_matrix,  RED  ) 

} 

change  =  0;    )  } 

mini  jjroj  ( &joint_three,  &x,  &y,  &z,  finger3_matrix ); 

finger3  matrix  =  object  translate  ( finger3  matrix,  -x,  -y,  -z  ); 

release_object  (  hand  ); 

if  ( gloveroll  =  1 )  { 

release  object  {  fingeil ); 

finger3  matrix  =  object^yrot  (  finger3_matnx,  270  ); 

Teleaseobject  (  finger2 ); 

fingeT3  matrix  =  object  translate  (  finger3_matrix,  x+250,  y,  z+760  ); 

} 

releaseobject  (  finger3 ), 

releaseobject  (  finger4 ); 

else  { 

release  object  (  fingerl_2  ); 

finger3_matrix  =  object_xrot  (  finger3_matrix,  90  ); 

releaseobject  (  finger2_2  ); 

finger3_matrix  =  object  translate  (  finger3_matrix,  x,  y+250,  z+760  ), 

release_object  (  fingeT3_2  ); 

}     close  =  0;  ) 

release_object  {  fingeT4_2 ); 

if  (((glov.fingers  &  Oxff)  >  0x80 )  &&  ( close  =  0 )) 

release_object  (  fingeTl_3 ); 

{       mini_proj  ( &joint  one,  &x,  &y,  &z,  fingerl  matrix ); 

release_object  {  finger2_3 ); 

fingerl  matrix  =  object  translate  (fingerl  matrix,  -x, -y, -z); 

release_object  (  finger33  ), 

if  (gloveroll  —  1  ) 

release_object  (  finger4  3  ); 

fingerl  matrix  =  object_yrot  (  fingerl  matrix,  -90  ); 

else 

free  ( hand  matrix ),  free  ( fingerl  matrix  ); 

fingerl  matrix  =  object  xrot(fingerl_matrix,  90); 

free  (  finger2_matrix);  free  ( finger3  matrix  ); 

fingerl  matrix  =  object  translate  ( fingerl  matrix,  x,  y,  z ); 

closegraphO;  glove  quitO;) 

A  Virtual  Handshake 

Joseph  D.  Gradecki 


The  PowerGlove  is  one  of  the  most  essential  parts  of  any  homebrew  Virtual  Reality  system. 
Although  this  peripheral  device  does  not  have  the  accuracy  of  the  DataGlove,  it  does  not  cost  $15,000. 
After  the  Virtual  Hand  programs  were  written,  I  needed  something  useful  for  the  Virtual  Hand.  The 
VR  HandShake  was  born. 

I  wanted  to  simulate  a  handshake  between  two  people  using  the  PowerGlove.  The  only  thing  that 
was  lacking  was  the  communication.  Having  built  a  network  parallel  processing  environment,  I  had  at 
my  disposal  the  network  components  that  was  needed.  As  I  thought  about  the  handshake  more,  it 
occurred  to  me  that  the  program  should  be  able  to  interface  two  people  from  anywhere  in  the  world 
and  my  networking  toolkit  was  for  local  use  only.  What  I  needed  was  a  TCP/IP  package  that  could 
send  information  anywhere  in  the  world. 

After  looking  at  several  commercial  products  and  determining  that  they  were  too  expensive,  I  came 
upon  WATTCP.  WATTCP  is  a  public  domain  TCP/IP  package  available  from  sunee.waterloo.edu. 
This  package  is  outstanding  and  works  as  advertised.  With  this  package,  we  now  have  the  Virtual 
Handshake. 

Specifications 

The  program  requires  the  following: 

*  Two  IBM  PC's  connected  on  Internet 

*  Two  Powergloves  -  one  at  each  site 

*  This  program. 

Each  of  the  PC's  must  have  an  IP  address  which  the  local  gateway  will  recognize.  The  program 
uses  the  VGA  mode  of  the  PC.  The  Powerglove  is  accessed  through  the  parallel  port. 

The  program  has  been  tested  on  two  local  machines  on  the  Internet  and  everything  worked  fine. 
The  delay  for  the  remote  glove  was  minimal  due  to  the  close  proximity  for  the  local  test. 

Setup 

We  will  begin  by  explaining  how  to  use  the  program.  Each  of  the  PC's  must  have  a  file  called 
wattcp.cfg  in  the  local  directory.  This  configuration  file  looks  something  like  this 

my  _ip=  129.72.6.1 12  ;  ip  address  of  this  machine 

netmask=255.255.0.0  ;  netmask  for  local  network 

nameserver=  129.72. 1.2  ;  address  of  a  name  server 

gateway=  129.72.3.1  ;  address  of  your  gateway 

domains  1  ist^ "  uwyo.  edu "  ;  system  extens  ion 

Each  of  the  values  in  this  file  must  be  changed  to  reflect  the  addresses  of  your  network.  Once  this  is 
done,  you  can  begin  the  program.  One  of  the  machines  must  be  the  host  and  the  other  the  caller.  The 
host  machine  should  simply  execute  the  handshake  program  by  typing  shake.  


The  other  person  will  need  to  have  the  address  of  the  host  machine.  They  will  execute  the 
handshake  program  by  typing  shake  xxx.xxx.xxx.xxx, with  the  xxx  replaced  by  the  ip  address.  Once  a 
connection  is  made,  the  host  machine  will  prompt  to  hit  any  key.  After  this  key  is  pressed,  each 
machine  displays  a  statement  instructing  each  person  to  exercise  the  glove  and  press  any  key. 

After  both  people  have  pressed  keys,  two  virtual  hands  will  appear  on  the  screen.  The  red  hand  is 
the  local  hand  representation  and  the  blue  hand  is  the  remote  representation.  As  each  of  the 
powergloves  are  moved,  the  corresponding  virtual  hand  will  be  moved.  This  will  not  be  in  realtime, 
unless  the  machines  are  relatively  close. 

Shake 

To  produce  the  actual  handshake,  each  of  the  virtual  hands  must  be  equal  on  the  Y  axis  (  vertical  ) 
and  within  an  inch  on  the  X  axis  (  horizontal ).  The  Z  axis  turned  out  to  be  more  of  a  problem  and  for 
this  version  is  ignored.  Once  the  virtual  hands  are  in  the  above  positions,  each  of  the  persons  should 
grip  their  powerglove.  If  everything  goes  as  described,  the  program  will  take  over  and  move  the  virtual 
hands  up  and  down  in  a  shaking  pattern.  It  may  seem  childish  but  works. 

To  end  the  program,  press  the  q  key.  The  internet  connection  will  be  closed  automatically. 

Operation 

The  basic  operation  of  the  handshake  program  relies  on  the  virtual  hand  programs.  The  graphic 
manipulation  routines  are  the  same.  The  difference  lies  in  the  communication  between  the  remote  and 
local  machines. 

When  the  local  powerglove  is  moved,  two  things  must  happen.  1)  the  virtual  hand  on  the  local 
screen  must  be  moved,  2)  the  remote  virtual  hand  must  be  moved.  The  first  step  involves  the  standard 
operations  from  the  virtual  hand  programs.  To  accomplish  the  second  step,  a  data  structure  was 
created  and  sent  to  the  remote  machine.  This  data  structure  is  called  remote_glove_data. 

struct  remote  glove  data 

{  int  x,  y,  z,  roll,  grip,  angle,  horizontal; 
char  ch; 

}; 

When  the  local  glove  is  moved,  the  new  x,  y,  and  z  values  are  put  into  this  structure.  If  the  glove  is 
gripped  or  rolled,  each  of  these  movements  are  recorded  in  the  structure.  After  all  of  the  new 
information  is  collected  about  the  local  glove,  this  data  is  sent  to  the  remote  machine.  A  new  hand  is 
then  redrawn  on  the  local  and  remote  machines.  The  information  is  sent  before  the  new  hand  is 
redrawn,  therefore  the  remote  redraw  will  occur  within  a  short  delay  of  the  local  redraw. 

The  remote  machine  receives  the  new  data  and  redraws  the  remote  hand  if  needed.  Because  each 
user  sends  a  large  amount  of  information,  the  redraws  will  be  slower  than  the  normal  virtual  hand 
program. 

Tests 

As  mentioned  above,  the  program  has  been  tested  on  local  machines.  I  would  be  interested  in  any 
experiments  using  machines  at  long  distances.  This  would  show  both  the  feasibility  and  limitations  of  a 
Virtual  Net. 


Compiling 

In  order  to  compile  the  handshake  program,  you  will  need  the  powerglove  code  described  in  the  last 
issue  and  the  wattcp  package  from  sunee.waterloo.edu.  The  wattcp  package  includes  two  library  files 
called  wattcpsm.lib  and  wattcplg.lib.  There  is  also  a  header  file  called  tcp.h.  The  handshake 
program  will  use  the  wattcpsm.lib. 

The  following  explanation  uses  Borland  C  2.0.  I  have  not  compiled  the  program  using  Turbo  C  nor 
Borland  C  3.0.  The  simplest  way  to  compile  the  program  is  to  set  up  a  project  file  with  shake. c, 
wattcpsm.lib  and  glove.obj  as  the  three  components  to  the  project.  Set  the  model  size  to  small.  Enter 
the  optimization  section  of  the  options  and  make  sure  that  the  register  variables  are  turned  off. 
Apparently  the  wattcp  package  does  not  like  having  its  variable  put  into  register  because  the  system 
will  not  work  with  that  particular  optimization.  The  program  should  compile  and  run  effortlessly. 

Software 

The  entire  source  code  to  the  program  has  been  printed  in  this  issue.  We  will  always  do  this.  If  you 
do  not  want  to  type  in  the  program,  check  The  Last  Page  for  other  options.  The  handshake  code  uses 
various  pieces  of  the  virtual  hand  program.  While  some  things  are  the  same,  others  are  different.  In 
the  coming  months,  we  will  develop  a  graphics  library  and  the  amount  of  code  published  should 
decrease. 

Additional 

This  is,  to  my  knowledge,  the  first  piece  of  useful  code  for  the  PowerGlove  and  the  PC.  I  am  aware 
of  some  other  uses  of  the  PowerGlove  on  other  machines.  There  are  several  additional  programs  that 
need  written.  I  would  challenge  anyone  to  write  code  for  the  PowerGlove  and  the  PC.  The  graphics 
code  that  you  use  is  not  a  big  deal.  Over  the  next  month  or  so  when  the  new  release  of  REND386  is 
available,  I  will  be  rewriting  the  virtual  hand  and  handshake  to  use  this  package.  I  did  not  use  it  initially 
because  the  objects  could  not  be  move  in  the  world,  only  the  viewpoint. 

I  would  like  to  see  the  following  programs  written  at  some  point.  I  fully  believe  we  have  the  tools 
available  now. 

*  A  Virtual  Pong  or  Racquetball  type  game. 

*  A  Virtual  World  manipulation.  Have  a  sphere  or  polygon  out  in  a  world  that 
can  be  picked  up  and  moved. 

*  A  Virtual  adventure  game. 

While  they  may  be  trivial  to  the  Virtual  Reality  circle,  however  on  the  PC  I  have  not  seen  anything 
that  comes  close  to  them.  Since  the  REND386  package  is  particularly  fast,  these  programs  could  be 
written  to  take  advantage  of  the  Sega  3D  glasses. 

More 

I  would  like  to  know  of  other  programs  that  you  would  like  to  see  implemented  on  the  PC  for 
Virtual  Reality.  Let's  start  getting  some  software  out  there!  


1 —  T~  .              vrD  — JT  ~  p_-  .   

/  i  nis  code  is  copyrighted  by  VKjng  oonware  ueveiopmeni  / 

void  create  view  transformationQ 

/*  Translate  to  perpective  view  */ 

/*  Any  commercial  use  is  strictly  prohibited  unless  permission  is 

{  float  sintheta,  costheta,  sinphi,  cosphi; 

*sx  =  screendist  *  xe  /  ze; 

*sy  =  screendist  *  ye  /  ze; 

/*  granted  otherwise.  */ 

sintheta  =  sin(theta*to_radians),  /*  1  "7 

) 

costheta  =  cos(theta*to_radians);  /*  0  */ 

^include  <stdio.h> 

sinphi  =  sin(phi*to_radians);     /*  0  */ 

void  mini_proj  ( struct  myjroint  *p,  int  *sx,  int  *sy,  int  *sz, 

^include  <stdlib  h> 

cosphi  =  cos(phi*to  radians);     I*  -1  */ 

struct  matrix  "mat ) 

(  int  xt,  yt,  zt,  xe,  ye,  ze,     xw,  yw,  zw; 

f^in  elude  "^math  h-^* 

va  —  -sintheta;        /*  - 1  */ 

vb  =  costheta;  /*0*/ 

/*  Apply  current  global  Matrix  (mat)  */ 

/^include  ^dos-h^* 

ve  =  -costheta*cosphi;  /*0*/ 

*sx  =  p->x*mat->m[0][0]  + 

vf =  -sintheta*cosphi;    /*  1  */ 

p->y*mat->m[l][0]  + 

/(include  <glove.h> 

vg  =  sinphi;  /*0"7 

p->z*mat->m[2][0]  + 

vi  =  -costheta*sinphi;  1*0*1 

mat->m[3][0]; 

#define  PORT  23 

yj  =  -sintheta*sinphi;  1*0*1 

#defineto  radians  0.017453292 

vk  =  -cosphi;         /*  1  */ 

*sy  =  p->x*mat->m[0][l]  + 

#define  rho  5000 

vl  =  rho;  /*5000*/ 

p->y*mat->m[l][l]  + 

#define  theta  90.0 

} 

p->z"mat->m[2][l]  + 

ftdefine  phi  1 80  0 

rnat->m[3][l]; 

#define  screendist  1 000  0 

struct  object  *  create  object  ( struct  object  *obj  ) 

(  obj  =  (struct  object  *)malloc(sizeof  (struct  object)), 

*sz  =  p->x*mat->m[0][2J  + 

int  screen  x  =  640, 

obj->polygons  =  NULL; 

p->y*mat->rn[l][2]  + 

screen_y  =  480; 

obj->number  =  0; 

p->z*mat->m[2][2]  + 

int  screen  x2  =  320" 

mat->m[3][2]; 

int  screen_y2  =  240; 

return  (obj); 

} 

int  va,vb,ve,v£  vg,vi,vj  ,vk,  vl; 

) 

void  draw  object  ( struct  object  *obj,  struct  matrix  "mat,  int 

tcp  Socket  s,  s2; 

void  release  object  ( struct  object  *obj ) 

color ) 

struct  object  *hand, 

(  struct  polygon  *p; 

(  struct  polygon  *p; 

'•'fingerl , 

struct  my_point  *d; 

struct  my_point  *d; 

*finger2, 

int  x,  y,  x2,  y2,  *sx,  *sy,  *sx2,  *sy2,  svx,  svy, 

*finger3, 

if  ( obj->number  >  0 )  ( 

*  finger 4, 

while  (  obj->polygons  !=  NULL  )  ( 

setcoloT  ( color ); 

*  finger  1  2, 

p  =  obj->polygons; 

sx  =  &x; 

*finger2_2, 

obj->polygons  =  obj->polygons->next; 

sy  =  &y; 

"finger 3  2, 

while  ( p->points  !=  NULL )  { 

sx2  =  &x2; 

*finger4  2, 

d  =  p->points; 

sy2  =  &y2; 

*  finger  1  3, 

p->points  =  p->points->next; 

*finger2  3„ 

free  (d); 

p  =  obj->polygons; 

^fingerS  3, 

) 

while  (p!=  NULL)  ( 

*finger4  3; 

ftee(p);    }  } 

d  =  p->points; 

struct  object  *remote  hand, 

free  (obj); 

proj  ( d,  sx,  sy,  mat ); 

*remote  finger!, 

} 

svx  -  d->ax  =  x,               /*  Save  actual  points  for  erase  */ 

*remote  finger2. 

struct  polygon  *  add_polygon  ( struct  object  *obj,  struct 

svy  =  d->ay  =  y; 

*remote  finger3. 

polygon  *p,  int  line ) 

d  =  d->next; 

*remote  finger4, 

{  p  =  (struct  polygon  *)malloc(sizeof(stiuct  polygon)); 

*remote  finger!  2, 

p->next  =  NULL; 

while  ( d  N  NULL )  ( 

*remote  finger2  2, 

p*>points  =  NULL; 

proj(d,  sx2,  sy2,  mat ), 

^remote  finger3  2, 

p->line  =  line; 

d->ax  =  x2;     /*  Save  actual  points  for  erase  */ 

*remote  6nger4  2, 

d->ay  =  y2; 

*remote  finger!  3, 

if (  obj->polygons  =  NULL  )  { 

line  (screen_x2-x,  screen_y2-y,  screen  x2-  x2, 

*remote  finger2  3, 

obj->polygons  =  p;  } 

screen_y2  -  y2 ); 

*remote_finger3_3, 

else  ( 

d  =  d->next; 

^remote  finger4  3; 

p->next  =  obj->polygons; 

obj->polygons  =  p; 

x  =  x2;          y  =  y2; 

struct  matrix  *hand  matrix. 

) 

) 

*fingerl_matrix, 

if(p->line  =  0)  { 

*finger2  matrix, 

obj->number++; 

line  ( screen  x2-x,  screen_y2-y,  screen_x2-svx, 

*  finger3  matrix ; 

return  (  p  ); 

} 

screen ^2-svy ); 
} 

struct  matrix  *remote  hand  matrix. 

p  =  p->next,    ) ) 

*remote  fingerl  matrix, 

void  proj  ( struct  my_point  *p,  int  *sx,  int  *sy,  struct  matrix 

''remote  finger2  matrix, 

*mat ) 

void  erase  object  ( struct  object  *obj  ) 

'''remote  finger3  matrix; 

{  int  xt,  yt,  zt,,  xe,  ye,  ze,  xw,  yw,  zw; 

{  struct  polygon  *p;  struct  my  joint  *d; 

int  svx,  svy,  x,  y; 

struct  remote^glove  data 

/*  Apply  current  global  Matrix  (mat)  */ 

{  int  x,  y,  z,  roll,  grip,  angle,  horizontal; 

xt  =  p->x*mat->m[0][0]  + 

setcolor  (  BLACK  ); 

char  ch;}; 

p->y*mat->m[l][0]  + 

p  =  obj->polygons; 

void  identity  ( struct  matrix  *m ) 

p->z*mat->m[2][0]  +  mat->m[3][0]; 

while  (p!=  NULL)  ( 

{  intij, 

d  =  p->points, 

yt  =  p->x*mat->m[0][l)  + 

x  =  svx  =  d->ax; 

for  (i=0;i<4,i++ )  { 

p->y",mat->m[l][l]  + 

y  =  svy  =  d->ay; 

for  ri=0i<4i++^  ( 

p->z*mat->m[2][l]  +  mat->m[3][l]; 

d  =  d->next; 

m->m[i][j]  =  0.0;  }  } 

while  ( d  N  NULL )  { 

zt  =  p->x*mat->m[0][2]  + 

line  (  screen_x2-x,  screen_y2-y,  screen_x2-d->ax, 

m->rn[op]  =  1.0; 

p->y*mat->m[l][2]  + 

screen  y2-d->ay  ); 

m->m[l][l]  =  1.0; 

p->z*mat->m[2][2]  +  mat->m[3][2]; 

x  =  d->ax; 

m->m[2][2]  =  1.0; 

y  -  d->ay; 

m->m[3][3]  =*  1 .0; 

xw  "  xt;  yw  —  yt;  zw  =  zt; 

d  =  d->next; 

) 

y 

/*  Translate  to  view  */ 

if  (p->line  =  0)  ( 

xe  =  va*xw;            f*  +  vb'yw;  */ 

line  (  screen  x2-x,  screen  y2-y,  screen  x2-svx,  screen_y2-svy  ); 

ye  =  /*  ve*xw  +  vf*  */     yw;     /*+  vg*zw;  */ 

} 

ze  =  /*  vi*xw  +  vj*yw  +  vk*  */  zw  +  vl; 

p  =  p->next,    ) ) 

void  addvertex  (  struct  polygon  *p,  int  x,  int  y,  int  z ) 
(  struct  my_point  *d,  *temp; 

temp  =  p->points; 
if  ( temp  !=  NULL )  ( 

while  ( temp->next  !=  NULL ) 

{ temp  -  temp->next;  } 

) 

d  =  (struct  my_point  *)malloc(sizeof(struct  my_point)); 
d->x  =  x;  d->y=*y;  d->z  =  z; 
d->oldx  =  x;  d->oldy  =  y;  d->oldz  =  z; 
d->next  =  NULL; 

if  (  p->points  =  NULL  )  { 
p->points  =  d,  } 
else  { 

temp->next  =  d; 

}) 

struct  object  *  make  hand  object*) 
{  struct  polygon  *p; 

struct  object  "hand, 

hand  =  createobject  (  hand ), 

p  =  addjolygon  ( hand,  p,  0 ); 
add_vertex  {  p,  400,0,1000 ), 
addjvertex  ( p,  400,400,1000  ); 
add_vertex  ( p,  400,400,300  ); 
add_vertex  ( p,  400,0,300 ); 

p  =  add_polygon  (  hand,  p,  0 ); 
addjvertex  (  p,  450, 0, 1000 ); 
add_vertex  (  p,  450,  400,  1000  ); 
add_vertex  (  p,  450,  400,  300  ); 
add_vertex  ( p,  450,  0,  300 ); 

p  =  add_polygon  ( hand,  p,  1  ); 
add_vertex  (  p,  400,  0,  1000 ); 
add_vertex  (  p,  450,  0,  1000 ); 

p  =  add_polygon  ( hand,  p,  1 ); 
add_vertex  ( p,  400, 400,  1000  ); 
addvertex  ( p,  450, 400, 1000 ); 
p  =  addjolygon  ( hand,  p,  1 ); 
add  vertex  ( p,  400, 400, 300 ), 
addjvertex  ( p,  450, 400, 300 ); 

p  =  add_polygon  ( hand,  p,  1  ); 
add_vertex  ( p,  400,  0, 300  ); 
addjvertex  ( p,  450, 0, 300  ); 

return  ( hand ); 

} 

struct  object  *  make_fingerl_objectO 
(  struct  polygon  *p; 

struct  object  *f; 

f  =  create_object  (  f ); 

/*  First  segment  of  finger  -  front  */ 
p  =  add  jolygon  ( £  p,  0  ); 
add_vertex  (  p,400, 400, 1300 ); 
add_vertex  ( p,400, 400, 1000 ); 
add  vertex  ( p,400,  343,  1 000 ); 
add_vertex  (  p,400,  343,  1 300  ); 

/*  First  segment  of  finger  -  back  */ 
p  =  add_polygon  (  £  p,  0  ), 
add_vertex  {  p,450,  400,  1300 ); 
add_vertex  ( p,450,  400,  1000 ); 
add_vertex  ( p,450,  343,  1000 ); 
add_vertex  ( p,450,  343,  1300  ); 

/*  Line  for  first  segment  */ 
p  =  add_polygon  (  £  p,  1 ); 
add_vertex  ( p,400,  400,  1 300  ); 
addjvertex  ( p,450,  400,  1 300  ); 

p  =  addjolygon  ( £  p, !  ); 
add_vertex  (  p,400, 343, 1000 ); 
add_vertex  ( p,450,  343, 1000 ); 

p  =  add_polygon  ( £  p,  1 ), 

add_vertex  ( p,400, 343, 1 300 ); 

addjvertex  ( p,450,  343,  1300 ); 

return  (  f );}  


struct  object  *  make_fingerl  2_object0 
{  struct  polygon  *p; 
struct  object  *f; 

f  =  createobject  ( f ); 

/*  Second  segment  of  finger  -  front  */ 
p  =  addjolygon  (  £  p,  0  ); 
add_vertex  ( p,400, 400, 1500 ); 
addjvertex  ( p,400, 400,  1300 ); 
addvertex  ( p,400, 343, 1300 ); 
add_vertex  (  p,400, 343,  1500 ); 

/*  Second  segment  of  finger  -  back  */ 
p  =  add_polygon  {  £  p,  0 ); 
addjvertex  ( p,450, 400,  1 500  ); 
add_vertex  (  p,450,  400,  1 300  ); 
add  vertex  (  p,450,  343, 1 300  ); 
add_vertex  ( p,450, 343, 1500 ); 

/*  Lines  for  second  segment  */ 
p  =  addjolygon  ( £  p,  1 ); 
add_vertex  (p,400, 400,  1500 ); 
addjvertex  (  p,450, 400,  1500 ); 

p  =  addjpolygon  ( £  p,  1 ); 
add_vertex  ( p,400, 343, 1500 ); 
add_vertex  (  p,450, 343,  1500 ); 

return  (  f ), 

) 

struct  object  *  make  fingerl3_object() 
{  struct  polygon  *p; 
struct  object  *f; 

f  =  createobject  {  f ); 

/*  Third  segment  of  finger  -  front  "7 
p  =  addjpolygon  (  £  p,  0  ); 
addjvertex  ( p,400, 400,  1 600  ); 
addjvertex  (  p,400, 400,  1 500  ); 
addjvertex  (  p,400, 343, 1500 ); 
add_vertex  (  p,400, 343, 1600  ); 

/*  Third  segment  of  finger  -  back  */ 
p  =  addjpolygon  ( f,  p,  0 ); 
addvertex  ( p,450, 400, 1600 ); 
add_vertex  (  p,450, 400,  1500 ); 
addjvertex  {  p,450, 343, 1500 ); 
addjvertex  {  p,450, 343,  1600 ); 

/*  Lindes  for  third  segment  */ 
p  =  add_polygon  ( f,  p,  1 ); 
addjvertex  (  p,  400,  400, 1600  ); 
addjvertex  (  p,  450,  400, 1600); 

p  =  add_polygon  ( £  p,  1  ); 
addjvertex  ( p,  400,  343,  1600 ); 
addjvertex  ( p,  450,  343,  1600  ); 

return  ( f ); 

} 


struct  object  *  make  6nger2_objectO 
(  struct  polygon  "p; 
struct  object  *£ 

f  =  create_object  (  f  ), 

/*  First  segment  of  fingeT  -  front  */ 
p  =  addjolygon  (  f  p,  0 ); 
addjvertex  ( p,400,  285,  1300  ), 
add  vertex  ( p,400,  285,  1000  ); 
add_vertex  ( p,400,  228,  1000  ); 
addjvertex  ( p,400,  228,  1 300  ); 

/*  First  segment  of  fingeT  -  back  */ 
p  =  add  jolygon  ( £  p,  0  ); 
addjvertex  ( p,450, 285,  1300  ); 
addjvertex  ( p,450,  285,  1000  ); 
addjvertex  ( p,450,  228,  1000 ); 
addjvertex  ( p,450,  228,  1300 ); 


/*  Line  for  first  segment  */ 
p  =  addjolygon  ( £  p,  1 ); 
addjvertex  ( p,400,  285, 1300 ); 
addjvertex  (  p,450,  285,  1 300 ); 

p  =  add_polygon  (  £  p,  1 ), 
add_vertex  ( p,400,  228,  1000 ); 
add_vertex  (  p,450,  228,  1000  ); 

p  =  addjolygon  (  £  p,  1 ); 
addjvertex  ( p,400, 228, 1300 ); 
addjvertex  (  p,450,  228,  1300  ), 

return  (  f ); 

} 

struct  object  *  make_finger22_object0 
{  struct  polygon  *p; 

struct  object  *f; 

f  =  createobject  (  f ); 

/*  Second  segment  of  finger  -  front  */ 
p  =  add_polygon  ( £  p,  0 ); 
addjvertex  ( p,400, 285, 1500 ), 
addjvertex  ( p,400, 285, 1300 ); 
addjvertex  (  p,400,  228,  1 300  ); 
addjvertex  (  p,400,  228,  1 500  ); 

/*  Second  segment  of  finger  -  back  */ 
p  =  addjolygon  {  £  p,  0  ); 
add_vertex  ( p,450,  285,  1 500 ), 
add_vertex  (  p,450,  285,  1 300  ), 
addjvertex  ( p,450,  228,  1 300 ); 
addjvertex  ( p,450,  228,  1500 ); 

/*  Lines  for  second  segment  */ 
p  =  addjolygon  ( £  p,  1  ); 
add_vertex  (  p,400,  285,  1500  ); 
add_vertex  (  p,450, 285,  1500  ); 
p  =  addjpolygon  (  £  p,  1 ); 
addjvertex  (  p,400, 228,  1 500  ); 
addjvertex  (  p,450,  228,  1 500  ); 

return  ( f ); 

) 

struct  object  *  make_finger23_object() 
( 

struct  polygon  *p, 
struct  object  *f; 

f  =  createobject  (  f ); 

/*  Third  segment  of  finger  -  front  */ 
p  =  addjpolygon  (  £  p,  0  ); 
add_vertex  ( p,400, 285,  1600 ); 
add_vertex  ( p,400, 285,  1 500  ); 
add  vertex  ( p,400, 228,  1 500  ); 
add_vertex  ( p,400,  228,  1 600  ), 

/*  Third  segment  of  finger  -  back  */ 
p  =  addjolygon  ( £  p,  0 ); 
addjvertex  (  p,450, 285,  1600  ); 
addjvertex  (  p,450,  285,  1 500  ); 
addjvertex  (  p,450,  228,  1500  ); 
addjvertex  (  p,450,  228,  1 600 ); 

/*  Lindes  for  third  segment  */ 
p  =  addjolygon  (  £  p,  1  ); 
add  vertex  ( p,  400,  285,  1600  ); 
addjvertex  ( p,  450,  285,  1600  ), 

p  =  addjolygon  (  £  p,  1  ); 
addjvertex  ( p,  400, 228,  1600  ), 
addjvertex  ( p,  450, 228, 1600 ), 
return  (  f ); 

) 


struct  object  *  make  finger3  objectO 
{ 

/*  Lindes  for  third  segment  "7 

p  =  add_polygon  {  £  p,  1 ); 

struct  polygon  *p, 

add_vertex  ( p,  400,  171,  1600 ); 

struct  object  *f; 

add_vertex  ( p,  450,  171, 1600 ), 

f  =  create  object  (  f  ), 

p  =  add_polygon  ( £  p,  1 ); 

/*  First  segment  of  finger  -  front  */ 

add  vertex  ( p,  400, 1 1 4,  1600 ); 

p  =  addjolygon  ( £  p,  0 ), 

add_vertex  ( p,  450, 1 1 4, 1600 ); 

add  vertex  (p,400,  171,  1300); 

add  vertex  (  p,400,  171,  1000  ); 

return  ( f ); 

add_vertex  (  p,400,  1 1 4,  1 000  ); 

} 

add_vertex  (  p,400,  114.  1300); 

struct  object  *  make_finger4  objectf) 

/•  First  segment  of  finger  -  back  */ 

(  struct  polygon  *p; 

p  =  add_polygon  (  £  p,  0 ); 

struct  object  *f; 

add  vertex  (p,450,  171,  1300); 

add_vertex  (  p,450,  1 71 ,  1 000 ); 

f  =  createobject  {  f ); 

add_vertex  ( p,450, 1 14,  1000); 

add_vertex  ( p,450, 1 1 4,  1 300 ); 

/*  First  segment  of  finger  -  front  */ 

p  =  add_polygon  ( £  p,  0  ); 

/*  Line  for  first  segment  */ 

add  vertex  (  p  400  57,  1 300  ), 

p  =  add_polygon  ( £  p,  1  ); 

addlvertex  (  p,400, 57,  1000  ); 

add  vertex  (p,400, 171,  1300); 

add_vertex  (  p,400, 0,  1 000  ); 

add  vertex  (p,450,  171,  1300); 

add_vertex  (  p,400, 0,  1 300  ); 

p  =  add_polygon  (  f  p,  1  ); 

/*  First  segment  of  finger  -  back  */ 

add  vertex  ( p,400,  1 1 4,  1000  ); 

p  =  add_polygon  (  £  p,  0 ); 

add_vertex  ( p,450,  1 1 4,  1000  ); 

add  vertex  (p,450, 57,  1300); 

add_vertex  ( p,450, 57,  1000 ); 

p  =  add_polygon  (  £  p,  1 ); 

add_vertex  ( p,450, 0,  1000 ), 

add  vertex  (  p,400,  1 14,  1300  ); 

add_vertex  (  p,450, 0,  1300 ); 

add_vertex  (  p,450,  1 14,  1300  ); 

/*  Line  for  first  segment  */ 

return  ( f ); 

) 

p  =  add_polygon  ( £  p,  1  ); 

add_vertex  (  p,400, 57,  1300  ); 

add_vertex  (  p,450, 57,  1300 ); 

struct  object  *  make _frnger32_object() 

{  struct  polygon  *p; 

p  =  add_polygon  ( £  p,  1 ); 

struct  object  *f; 

add_vertex  ( p,400, 0,  1000 ); 

f  =  create_object  {  f ); 

add_vertex  ( p,450, 0,  1000 ); 

p  =  addj>olygon  {  £  p,  1 ); 

/*  Second  segment  of  finger  -  front  "/ 

add_vertex  ( p,400, 0,  1300 ); 

p  =  add_polygon  ( f,  p,  0 ); 

add_vertex  ( p,450, 0,  1300 ), 

add_vertex  {  p,400,  171, 1500); 

add  vertex  ( p,400,  171, 1300); 

return  ( f ), 

add  vertex  (p,400,  114, 1300); 

} 

add  vertex  ( p,400, 1 1 4,  1 500  ); 

struct  object  *  make_finger42_object() 

/*  Second  segment  of  finger  -  back  */ 

{  struct  polygon  *p; 

p  =  add_polygon  (  £  p,  0  ); 

struct  object  *£ 

add_vertex  ( p,450,  17!,  1500  ); 

add  vertex  ( p,450,  17!,  1300), 

f  =  create  object  ( f ), 

add  vertex  ( p,450,  114,  1300  ), 

add_vertex  ( p,450,  1 1 4,  1 500 ); 

/*  Second  segment  of  finger  -  front  */ 

p  =  add_polygon  ( £  p,  0 ); 

/*  Lines  for  second  segment  / 

add  vertex  ( p,400, 57, 1 500 ); 

p  =  add_polygon  (  £  p,  1 ); 

add^vertex  ( p,400, 57, 1 300 ); 

add  vertex  (p,400,  171,  1500); 

add_vertex  ( p,400, 0, 1 300 ); 

add_vertex(p,450,  171,  1500); 

add_vertex  ( p,400, 0, 1500 ); 

p  =  add_polygon  (  £  p,  1 ); 

/*  Second  segment  of  finger  -  back  */ 

add  vertex  ( p,400,  1 1 4,  1 500  ); 

p  =  add_polygon  (  £  p,  0 ); 

add_vertex  ( p,450,  1 1 4,  1 500  ); 

add  vertex  (p,450,  57, 1500); 

addjvertex  ( p,450,  57,  1300  ); 

return  (  f  ); 

} 

add_vertex  ( p,450, 0, 1 300 ); 

add  vertex  ( p,450,  0, 1500  ); 

struct  object  *  make  finger33_object() 

{  struct  polygon  *p; 

/*  Lines  for  second  segment  */ 

struct  object  *f; 

p  =  addjpolygon  ( £  p,  1 ); 

f  =  create_object  (  f ); 

add  vertex  ( p,400,  57, 1500  ); 

add_vertex  ( p,450,  57,  1 500 ); 

/*  Third  segment  of  finger  -  front  */ 

p  =  add_polygon  (  f,  p,  0 ); 

p  =  add_polygon  ( £  p,  1  ); 
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add  vertex  (p,400,  0,  1500), 

add~vertex(p,400,  171,  1500), 

addjvertex  ( p,450,  0,  1 500 ); 

add_vertex  ( p,400,  1 1 4,  1 500 ), 

add_vertex  ( p,400,  1 14,  1 600 ); 

return  ( f ); 

/*  Third  segment  of  finger  -  back  */ 

} 

struct  object  *  make_finger43_object() 

p  =  add_polygon  (  £  p,  0 ); 

{  struct  polygon  *p; 

add  vertex  (p,450,  171,  1600); 

struct  object  *f; 

add_vertex  ( p,450,  171,  1500 ); 

add_vertex  (  p,450,  114,  1500); 

f  =  create_object  (  f ); 

add  vertex  ( p,450,  1 14,  1600 ); 

/*  Third  segment  of  finger  -  front  */ 
p  =  add_polygon  (  £  p,  0 ), 
add_vertex  (  p,400,  57,  1600  ); 
add  vertex  (  p,400,  57,  1 500  ); 
add_vertex  (  p,400,  0,  1 500  ); 
add_vertex  (  p,400,  0,  1600  ); 

/*  Third  segment  of  finger  -  back  */ 
p  =  add_polygon  ( £  p,  0  ); 
add  vertex  ( p,450, 57,  1600 ); 
add_vertex  ( p,450,  57,  1 500  ), 
add  vertex  ( p,450,  0,  1 500  ), 
add  vertex  ( p,450,  0,  1 600  ); 

/*  Lindes  for  third  segment  */ 
p  =  add_polygon  ( £  p,  1 ), 
add_vertex  ( p,  400,  57,  1600 ); 
add_vertex  ( p,  450, 57,  1600 ); 

p  =  add_polygon  (  £  p,  1 ); 
add_vertex  (  p,  400, 0,  1600  ); 
add_vertex  ( p,  450, 0, 1 600  ); 

return  ( f ); 

} 


struct  matrix  *  matrixmult  (  struct  matrix  *a,  struct  matrix  *b  ) 
{ 

inti,j,  k;  float  t;  struct  matrix  *c; 

c  =  (struct  matrix  *)malloc(sizeof[struct  matrix)), 

for  (i=0y<4y++)  { 
for(j=0-j<4J++)  ( 
t  =  0.0, 

for  (k=0  J«4Jc++)  { 

t  =  t  +  a->m[i][k]  *  b->m[k][j]; 

) 

c->m[i][j]  =  t;  )  ) 
return  (  c  ), 

) 


struct  matrix  *  object  translate  ( struct  matrix  *ma£  int  transx, 

int  transy,  int  transz  ) 

{ 

struct  matrix  *b,  *c; 

b  =  (struct  matrix  *)mailoc(sizeof(5truct  matrix)); 

identity  ( b  ); 
b->m[3][0]  =  transx; 
b->m[3][l]  =  transy; 
b->m[3][2]  ■=  transz; 
c  =  matrixmult  ( mat,  b ), 
free  ( mat); 
free  (b); 

return  ( c ); 

} 

struct  matrix  *  object  scale  (  struct  matrix  "mat,  float  scale ) 
{ 

struct  matrix  *b,  *c, 

b  =  (struct  matrix  *)malloc(sizeofXstruct  matrix)); 

identity  (  b ); 
b->m[0][0]  *=  scale, 
b->m[l][l]  »=  scale, 
b->m[2][2]  *=  scale; 
c  =  matrixmult  ( mat,  b ); 
free  (  mat ); 
free(b), 

return  ( c ); 

} 


struct  matrix  *  object  xrot  ( struct  matrix  *mat,  float  deg ) 
{ 

float  thecos,  thesin; 
struct  matrix  *b,  *c; 

thecos  =  cos  (  deg*to  radians ); 
thesin  =•  sin  (  deg'toradians  ); 
b  =  (struct  matrix  *)maJloc(sizeof(struct  matrix)); 

identity  ( b  ); 
b->m[i][i]  =  thecos; 
b->m[l][2]  =  thesin; 
b->m[2][l]  =  -thesin; 
b->m[2][2]  -  thecos; 
c  =  matrixmult  ( mat,  b ); 
free  (  mat ), 
free(b); 

return  (  c ); 

} 

struct  matrix  *  object _yrot  ( struct  matrix  *mat,  float  deg ) 
( 

float  thecos,  thesin; 
struct  matrix  *b,  *c, 

thecos  =  cos  ( deg*to_radians ), 
thesin  =  sin  (  deg*to_radians ), 
b  -  (struct  matrix  *)malloc(sizeof{stnict  matrix)); 

identity  (  b ), 
b->m[0][OJ  =  thecos; 
b->mt0][2]  =  -thesin; 
b->m[2][0]  =  thesin; 
b->m[2][2]  =  thecos, 
c  =  matrixmult  ( mat,b ); 
free  ( mat ), 
free(b); 
return  ( c ); 

) 

struct  matrix  *  objectzrot  ( struct  matrix  "mat,  float  deg ) 
{ 

float  thecos,  thesin; 
struct  matrix  *b,  *c; 

thecos  =  cos  ( deg*to  radians ); 
thesin  =  sin  ( deg*to  radians ); 
b  =  (struct  matrix  *)maUoc(sizeof(struct  matrix)), 

identity  ( b ); 
b->m[0][0]  =  thecos; 
b->m[0][l]  =  thesin; 
b->m[l][0]  = -thesin; 
b->m[l][l]  =  thecos; 
c  =  matrixmult  ( mat,  b  ), 
free  ( mat ); 
free(b); 

return  {  c ); 

) 

void  getobjectsO 
{ 

hand  =  make  hand objectO; 
fingerl  =  make  fingerl  objectO; 
finger2  =  make  finger2_object0; 
fingex3  =  make  fingeri  objectO; 
finger4  =  make  finger4  objectO; 

fingerl_2  =  make  finger!  2_object0; 
finger2_2  =  make  _finger22_object0; 
finger3_2  =  make  finger32_object0; 
finger4_2  =  make_unger42  objectO; 
fingerl_3  =  make_fingerl3  objectO; 
finger2_3  =  makejinger23_object0; 
finger3_3  =  make_finger33_object0, 
finger4_3  =  make_finger43_object0; 

remote  hand  =  make  JiandobjectO; 
remote_£ingerl  =  make  fingerl  objectO; 
remote_nnger2  =  make  finger2_object0; 
remote_finger3  =  make  finger3  objectO; 
remote  finger4  =  make  unger4_object0; 


remote  fingerl_2  =  makefingerl2_object0; 
remote  finger2_2  =  make_finger22_object0; 
remoteJinger3_2  =  make_finger32_object0, 
remote  finger4J2  =  make_finger42_object0; 

remote  Jingerl  3  =  make  fingerl3_object0; 
remote_finger2_3  =  make  Jinger23_objectO; 
remote_finger3_3  =  makej3nger33j>bjectO; 
remote  finger4_3  =  make  finger43_object0; 

} 

void  init  hand JocationO 
{  intx,y,  z, 

x  =  hand->polygons->points->x; 
y  =  hand->polygons->points->y; 
z  -  hand->polygons->pornts->z; 

handrnatrix  -  objectjxanslate  ( handmatrix,  -x,  -y,  -z  ); 
hand_matrix  =  objectzrot  ( handmatrix,  90 ); 
hand_matrix  =  objectjranslate  ( hand  jnatrix,  x,  y,  z ); 
fingerl  _matrix  =  objectjranslate  (  finger  1  matrix,  -x,  -y,  -z ), 
fingerl  _matrix  =  object  zrot  ( fingerl  matrix,  90 ); 
fingerl  matrix  =  objectjranslate  {  fingerl  matrix,  x,  y,  z  ); 

flnger2mmatrix  =  objectjranslate  ( finger2  matrix,  -x,  -y,  -z  ); 
finger2_matrix  =  object_zrot  (  finger2_matrix,  90 ); 
finger2_marrix  =  objectjranslate  ( finger2_matrix,  x,  y,  z ); 

finger3  matrix  =  object  translate  ( fingeT3_matrix,  -x,  -y,  -z ); 
finger3_matrix  =  object_zrot  ( finger3  jnatnx,  90  ); 
finger3  matrix  -  object  translate  ( finger3 jnatrix,  x,  y,  z); 

minijjToj  ( Temote  hand->polygons->points,  &x,  &y,  &z, 
remotejiandrnatrix ); 

remotehand_matxix   =  objectjranslate  ( 
remote  hand_matrix,  -x,  -y,  -z  ); 

remote  Jiandmatrix   =  objectzrot  ( remote  Jiand  jnatrix,  90 

); 

remote  hand  matrix  =  objectjranslate  ( 
remote  hand  matrix,  x,  y,  z  ); 

remote  fingerl  matrix  -  objectjranslate  ( 
remote  Jingerl  matrix,  -x,  -y,  -z ); 

remoteJingerl_matrix  =  object  zrot  ( remote Jingerl  matrix, 
90); 

remote  Jingerl  _matxix  =  object  translate  ( 
remote Jxngerl  matrix,  x,  y,  z ); 

remote  Jinger2jnatxix  =  object  translate  ( 
remote Jiiiger2  matrix,  -x,  -y,  -z ); 

Temote  Jinger2_matrix  =  objectzrot  ( remote  Jrnger2  jnatrix, 
90); 

TemoteJxngex2_matxix  =  objectjranslate  ( 
remoteJinger2_matrix,  x,  y,  z ), 

remote  finger3_matnx  =  objectjranslate  ( 
remoteJinger3_matrix,  -x,  -y,  -z ); 

remote  finger3_matrix  =  object_zrot  {  remoteJinger3  matrix, 
90); 

remote  finger3_matrix  =  objectjxanslate  ( 
remote J5nger3  matrix,  x,  y,  z ); 

mini_proj  ( Temote  Jiand->polygons->pojnts,  &x,  &y,  &Z, 
remote  hand_matrix ); 

remotejiand  matrix   =  object  translate  ( 
remote  Jiand_matxix,  -x,  -y,  -z  ); 

remote  Jiand  jnatrix  =  object_yrot  ( remoteJ\and_matrix, 
180); 

remotejiandmatrix   =  objectjranslate  ( 
remote  Jiandmatrix,  x,  y,  z ), 

remoteJjngeT]  matrix  =  object  translate  ( 
remote  fingeTl  matrix,  -x,  -y,  -z); 

remote  fingeTl  jnatrix  =  object_yrot  ( remotejingerlmatrix, 
180); 

remote  Jingerl  matrix  =  object  translate  ( 
remote  fingerl  matrix,  x,  y,  z ), 

remote  finger2  matrix  =  objectjranslate  ( 
emote  Jrnger2_matrix,  -x,  -y,  -z ); 

remote  finger2_matrix  =  object _yrot  ( Temote Jinger2 jnatrix, 
180); 

remote  finger2_matrix  =  objectjranslate  ( 
remote  fjngertjnatrix,  x,  y,  z ); 

remote  finger3_matnx  =  objectjranslate  ( 
remote_finger3  matrix,  -x,  -y,  -z ); 

remote  finger3 jnatrix  =  object  yrot  ( remote  finger3_matrix, 
180 ); 

remote  nnger3_matrix  =  objectjranslate  { 
remote  6ngeT3  matrix,  x,  y,  z );  


remote  hand  matrix  =  objectjranslate  (  remote  hand  matrix,  - 
650,0,950  ); 

remote  nngerl  matrix  =  object  jxanslate  ( 
remote  fingerl  matrix,  -650, 0,  950  ); 

remote  J3nger2  jnatrix  =  objectjranslate  ( 
remotejHiger2 jnatrix,  -650, 0, 950 ); 

remote  Jinger3_matrix  =  objectjranslate  ( 
remoteJrnger3_matrix,  -650, 0, 950  ); 
) 

void  do_shake0 
{  erase  object  (  hand ), 
exase_object  ( fingerl ); 
erase  object  (  finger2  ); 
eraseobject  ( finger3 ); 
erase  object  ( finger4 ); 
erase  object  ( finger  12 ); 
erase  object  ( finger2_2  ); 
erase_object  (  fingeT3 _2  ); 
erase  j)bject  ( finger4_2  ); 
erase  object  (  finger  13  ); 
erase  jjbject  ( finger2_3 ); 
erase  object  (  finger3_3  ); 
erase  object  ( finger4_3 ); 

eraseobject  (  remote  Jiand ); 

erase  object  ( remote  fingerl  ); 

erase  object  ( remote  finger2 ); 

erase_object  (  remote  finger3  ); 

eraseobject  (  remote_finger4 ); 

eraseobject  ( remote  Jingerl  2 ); 

erase  object  ( remote  finger2_2  ); 

erase  object  ( Temote  ftnger3  2  ); 

erase  object  (  remote  Jinger4_2  ); 

erase  object  (  remoteJingerl_3  ); 

erase  object  (  remote  finger2_3  ); 

eraseobject  ( remoteJingeT3_3 ); 

erase  object  (  remote JingeT4_3  ); 
hand_matrix  =  objectjxanslate  (  hand  matrix,  0,  300,  0 ); 
finger  l_matrix  =  objectjranslate  ( finger  1  jnatrix,  0, 300, 0 ); 
finger2_marrix  =  object  jranslate  (  finger2_matnx,  0, 300, 0 ); 
fingeT3_rnatrix  =  object  jranslate  ( fingeT3_roatrix,  0, 300, 0  ); 

remote  hand  matrix  =  objectjxanslate  (  remote  hand_matnx, 
0, 300, 0 ); 

remote  fingerl  jnatrix  =  object  translate  ( 
remote  fingerl  matrix,  0,  300, 0 ); 

remotefinger2_matrix  =  objectjxanslate  ( 
remote  finger2  matrix,  0, 300, 0  ), 

remote  unger3_matrix  =  object  translate  ( 
remote  finger 3  matrix,  0,  300, 0  ); 

draw  object  (  hand,  hand_matrix,  RED ), 
drawobject  ( fingerl ,  fingerl  jnatrix,  RED ); 
draw_object  ( finger2,  fingerl  matrix,  RED  ), 
draw_object  ( finger3,  fingerl  matrix,  RED  ); 
draw_object  ( finger4,  fingerl  matrix,  RED  ); 
dxaw_object  ( tingerl_2,  finger2_roatrix,  RED ); 
draw  object  ( txnger2 _2,  finger2  matrix,  RED ); 
draw_object  (  fingeT3  2,  finger2_matrix,  RED ); 
draw  object  (  finger4_2,  finger2  matrix,  RED ); 
draw  object  (  fingerl  3,  finger3_matrix,  RED ); 
draw  object  (  Gnger2_3,  finger3_matrix,  RED  ); 
draw  object  ( fingex3J?,  finger3_matrix,  RED ); 
draw  object  ( finger4_3,  finger3_matrix,  RED ), 

draw  object  ( remote  hand,  remote_hand_matnx,  BLUE  ); 
draw  object  ( remote  fingerl,  remote  fingerl  matrix,  BLUE ); 
draw_object  ( remote  fingerl,  remote  fingeTl _matrix,  BLUE ); 
draw_object  ( remote  finger3,  remote  finger  l_matrix,  BLUE ); 
draw  object  ( remote  finger4,  remote  finger l_matrix,  BLUE ); 
draw  object  (  remote J5ngerl_2,  remote  finger2  matrix,  BLUE 

); 

draw  object  ( remote  finger2_2,  remote  finger2  matrix,  BLUE 

); 

draw  object  ( remote  finger3  2,  remote  finger2  matrix,  BLUE 

); 

draw  object  ( remote  finger4_2,  remote  finger2  matrix,  BLUE 

); 

drawobject  ( remote  Jingerl  3,  remote  finger3_matrix,  BLUE 

); 

draw  object  ( remote  finger2  3,  remote  finger3_marrix,  BLUE 

); 

draw  object  ( remote  finger3_3,  remote  finger3_matrix,  BLUE 

); 

draw  object  ( remote  finger4  3,  remote  finger3  matrix,  BLUE 

); 


erase_object  (  hand  ); 

intmain  loopO 

if  ( change  =  2  ) 

eraseobject  (  fingerl  ); 

{ 

{ 

erase_object  (  finger2  ); 

handmatrix  =  object_translate  (  hand_matnx,  x,y,z ); 

eraseobject  (  finger3  ); 

charch; 

fingerl  _matrix  =  object_translate  (  fingerl  matrix,  x,y,z  ); 

erase_object  (  finger4  ); 

int  who_closed  =  0,  horizontal  =  1 ,  angle,  x,  y,  z,  rx,  ry,  rz,  i, 

finger2_matrix  =  object  translate  (  finger2_matrix,  x,y,z  ); 

erase_object  (  finger  12  ), 

grip  =  0,  remote_grip  =  0,  remotehorizontal  =  1,  shake 

finger3  matrix  =  object  translate  (  finger3_matrix,  x,y,z  ); 

erase^object  (  finger2_2 ); 

=  0, 

1 

} 

erase  object  (  finger3_2 ); 

glovex=0,  glovey=0,  glovez=0,  oldgrip  =  0,  change; 

erase  object  (  finger4_2 ); 

struct  remote_glove_data  remote_glove; 

if  ( change  —  2 ) 

eraseobject  ( fingerl_3 ); 

struct  my_point  joint  one,  joint  two,  joint_three, 

( 

erase  object  (  finger2_3  ); 

erase  object  ( hand ); 

erase  object  ( finger3_3 ); 

glove_data  glov; 

erase  object  (  fingerl  ); 

erase_object  (  finger4  3  ); 

eraseobject  ( finger2 ), 

erase  object  ( finger3  ); 

erase_object  ( remotehand  ); 

joint  one.x  =  450; joint_one.y  =  400; joint_one.z=  1000; 

erase  object  ( fingeT4 ); 

erase  object  ( remote  fingerl  ); 

joint  two.x  =  450;  joint_two.y  =  400;  joint  two.z^  1300, 

erase_object  ( fingerl_2  ) 

erase_object  ( remote_finger2 ); 

jointthree.x  =  450;  joint_three.y  =  400,joint_three,z=  1500; 

erase_object  ( finger2_2 ) 

eraseobject  ( remote_finger3 ); 

erase  object  (  finger3  2 ) 

eraseobject  ( remote_finger4 ), 

erase_object  (  finger4_2 ) 

erase_object  ( remote_finger!  2  ); 

erase_object  ( fingerl_3  ) 

erase  object  ( remote_finger2_2 ); 

ch  =  0; 

erase  object  (  finger2_3 ) 

eraseobject  ( remote_fingeT3  2  ); 

while  ((  ch  !=  'q' )  &&  ( tcp  tick  ( As  ))) 

eraseobject  ( finger3_3  ) 

erase  object  ( remote  finger4_2 ); 

( 

erase  object  (  finger4  3  ) 

erase  object  ( remote  finger]  3  ); 

change =  1; 

erase  object  (  remote _finger2_3  ); 

!*  Check  for  handshake  */ 

) 

erase  object  ( remote_finger3_3 ); 

mini jroj  ( hand->polygons->points,  &x,  &y,  &z, 

erase  object  ( remote  _finger4_3 ); 

hand  matrix); 

mini_proj  ( remote_hand->polygons->points,  &rx,  &iy,  &rz. 

remote  hand  matrix ); 

if  (  (glov.keys  &  Oxff)  <=  OxAO  ) 

hand  matrix  =  object_translate  (  hand_matrix,  0,  -300, 0  ), 

if  {  abs(y-ry)  <  100 )  { 

{ 

fingerl  matrix  =  object_translate  ( finger l_matrix,  0,  -300, 0 ); 

if{abs(x-rx)<  150)  ( 

ch  =  'q'; 

finger2  matrix  =  object_translate  ( finger2_matrix,  0,  -300, 0 ); 

if  (( grip  =  1  )  &&  ( remote_grip  =  1  ))  ( 

sock  close  (&s); 

finger3_matrix  =  object_translate  (  fjnger3_matrix,  0,  -300,  0  ); 

if  (( horizontal  =  0  )  &&  (  remote  horizontal  = 

0))( 

who  closed  =  1 ; 

) 

remote  hand  matrix  =  object  translate  ( Temote  hand  matrix, 

if(shake  =  0)  ( 

0,  -300,  0  ); 

for  (i=Ou<74++)  { 

if  (((glov.  fingers  &  Oxff)  < 

=  0x80 )) 

remote_fingeTl_matrix  =  objecttranslate  ( 

glove  quitfj', 

{ 

remote_fingerl_matrix,  0,  -300, 0 ); 

do  shakeO; 

oldgrip  =  grip; 

remote_finger2_matrix  =  objecttranslate  ( 

glove  init  ( HIRES,  NULL ); 

grip  =  0, 

remote_finger2_matrix,  0,  -300, 0 ), 

shake  =1; )))}}} 

} 

remote_finger3_matrix  =  objecttranslate  ( 

else 

remote_finger3_matrix,  0,  -300, 0  ), 

iff  glove  TeadyO) 

( 

( 

oldgrip  =  grip; 

drawobject  (  finger4,  fingerl  matrix,  RED  ); 

glove_read(&glov); 
x  =  y  =  z=0; 

grip=  1; 

) 

drawobject  ( fingerl_2,  finger2_matrix,  RED ) 

remote_glove.x  =  remote  jdove.y  =  remote  glovez  =  0; 

draw_object  ( finger2  2,  finger2_matrix,  RED ) 

if  ((  oldgrip  !=  gnp  )  &&  (  gnp  =  1  )) 

draw_object  (  finger3_2,  finger2  matrix,  RED ) 

if  (  glov.x  [=  glovex  ) 

{ 

draw  object  (  finger4  2,  finger2_rnatrix,  RED ) 

( 

mini_proj  ( &joint_one,  &x,  &y,  &z,  fingerl  matrix ); 

change  =  2, 

finger  I  _matrix  =  object  translate  (  fingerl  matrix,  -x,  -y,  -z 

draw_object  (  fingerl_3,  finger3  matrix,  RED ) 

if  (  glov.x  >  glovex  ) 

); 

draw  object  (  finger2_3,  finger3_matrix,  RED ) 

x  =  abs(glov  x-glovex)  *  25; 

if  ( horizontal  =  0  ) 

draw_object  (  finger3_3,  finger3_matrix,  RED ) 

else 

fingerl  matrix  =  object_yrot  (  finger  1  _matnx,  -90  ); 

draw  object  (  finger4_3,  finger3  matrix,  RED ) 

x  =  abs(glov.x-glovex)  *  -25; 

else 

glovex  "  glov.x; 

fingerl  matrix  =  objectxrot  (  fingerl  matnx,  90  ); 

remote_glove.x  =  x, 

) 

fingeTl_matrix  =  object  translate  (  fingerl  matrix,  x,  y,  z ); 

draw  object  ( remote  hand,  remote  hand  matrix,  BLUE ); 

draw  object  ( remote  fmgerl, remote  fingerl  matrix,  BLUE ); 

draw_object  ( remote_finger2,  remote  fingerl  matrix,  BLUE ); 

if(glov.y  !=  glovey  ) 

minijroj  ( &joint_two,  &x,  &y,  &z,  finger2_matnx ), 

draw_object  ( remote_finger3,  remote  fingerl  matrix,  BLUE ); 

( 

finger2_matrix  =  object  translate  ( finger2  matrix,  -x,  -y,  -z 

draw  object  ( remote  finger4,  remote  fingerl  matrix,  BLUE  ), 

change  ^ 2; 

); 

if  (  glov.y  >  glovey  ) 

if  ( horizontal  =  0  ) 

draw  object  ( remote  fingerl_2,  remote_finger2 

_matrix, 

y  "  abs(glov.y-glovey)  *  25; 

( 

BLUE ); 

else 

finger2  matrix  =  object_yrot  (  finger2_matrix,  180 ); 

draw  object  ( remote_finger2_2,  remote_finger2 

matrix, 

y  =  abs(glov.y  -glovey)  *  -25; 

finger2_matrix  =  object  translate  (  finger2_matrix,  x-300, 

BLUE ); 

glovey  =■  glov.y; 

y,  z-358 ); 

draw  object  ( remote  finger3_2,  remote_finger2 

matrix, 

remote_glove.y  =  y, 

} 

BLUE ); 

) 

else 

draw  object  ( remote_finger4_2,  remote_finger2 

matrix, 

( 

BLUE ); 

if  ( glov.z  !=  glovez ) 

finger2_matrix  =  object  xrot  (  finger2_matrix,  180 ), 

( 

finger2_matrix  =  object  translate  (  finger2  matrix,  x,  y- 

draw  object  ( remote  fingerl  3,  remote_finger3 

matrix, 

change  =  2; 

300,  z-358  ); 

BLUE), 

if(  glov.z  >  glovez) 

) 

drawobject  ( remote_finger2_3,  remote_finger3 

_matrix, 

z  =  abs(glov.z-glovez)  *  -200, 

BLUE); 

else 

draw  object  ( remote_finger3_3,  remote  finger' 

matrix, 

z  =  abs(glov.z-glovez)  *  200; 

BLUE ); 

glovez  =  glov.z; 

draw  object  ( remote_finger4_3,  remote  finger; 

matrix, 

remote_glove.z  =  -z; 

BLUE ); 
» 

} 

mini_proj  ( &joint Jhree,  Ax,  &.y,  &z,  finger3_matrix  ); 
finger3_matrix  =  objectjranslate  ( finger3_matrix,  -x,  -y,  -z 


=  0) 


if  ( horizontal  = 
( 

finger3_matrix  =  object_yrot  ( finger3_matrix,  90 ), 
finger 3_matrix  =  objecttranslate  (  finger3_matrix,  x-250, 
y,  z-760 ); 
) 

else 
( 

finger3_matrix  =  objectxrot  (  finger3_matrix,  -90  ); 
finger3_matrix  =  objectjranslate  (  finger3_ma1rix,  x,  y- 
250,  z-760  ); 
) 

} 


if((oldgrip  !=  grip  )&&(  grip  =  0)) 
{ 

mini_proj  ( &joint_one,  &x,  &y,  &z,  finger l_matrix ); 
fingerlmatrix  =  object_translate  ( fingerl  matrix,  -x,  -y,  -z ); 
if  ( horizontal  =  0 ) 
fingerl  matrix  -  object_yiot  ( fingerl  matrix,  90 ); 
else 

fingerl  _matrix  =  objectxrot  (  fingerl  _matrix,  -90  ); 
fingerl _matrix  =  objectjranslate  ( fingerl  matrix,  x,  y,  z ); 


mini  jiroj  ( &joint  two,  &x,  &y,  &z,  finger2_matrix  ); 
finger2_rnatrix  =  object_translate  (  finger2  matrix,  -x,  -y,  -z ); 
if  (horizontal  =  0 ) 
{ 

finger2  matrix  =  objectxrot  ( finger2_matrix,  180 ); 
finger2_matrix  =  object_translate  ( finger2_matrix,  x+300,  y, 
z+358 ); 
) 

else 
( 

finger2_matrix  =  object  xrot  (  finger2_matrix,  180 ); 
finger2_matrix  =  objecttranslate  {  fingertrnatrix,  x,  y+300, 
z+358 ); 
} 


mini_proj  ( &jointJhree,  &x,  &y,  &z,  finger3_matrix  ); 
finger3_matrix  =  objecttranslate  ( finger3_matrix,  -x,  -y,  -z); 
if  ( horizontal  =  0  ) 

{ 

finger3_matrix  =  object_yrot  (  finger3_matrix,  270 ); 
finger3_matrix  =  object  translate  (  finger3_rnatrix,  x+250,  y, 
z+760 ); 
) 

else 
{ 

finger3_matrix  =  object  xrot  ( finger3  matrix,  90  ); 
finger3_matrix  =  object  translate  (  finger3_matrix,  x,  y+250, 
z+760 ); 


if  ((  glov.rot  >=  3 )  &&  (glov.rot  <=10 )  &&  ( horizontal  =  1)) 
( 

mini_proj  ( hand->polygons->points,  &x,  &y,  &z, 
hand_matrix  ); 

hand_matrix  =  objectjranslate  ( handmatrix,  -x,  -y,  -z ); 
handmatrix  =  objectzrot  ( handmatrix,  -90 ); 
hand_matrix  =  objectjranslate  ( hand  matrix,  x,  y,  z ); 
fingerl  matrix  =  object  translate  ( fingerl  matrix,  -x,  -y,  -z ), 
fingerl_matrix  =  object_zrot  (  fingerl  matrix,  -90  ); 
fingerl_matrix  =  objectjranslate  ( fingerl  matrix,  x,  y,  z ); 


finger2_matrix 
finger2_matrix 
finger2_matrix 
finger3_matrix 
finger3_matrix 
finger3_matrix 
horizontal  =  0; 
} 


=  objecttranslate  (  fingerlmatrix,  -x,  -y,  -z  ); 

=  object  zrot  (  finger2_matrix,  -90  ); 

=  object  translate  {  finger2_matrix,  x,  y,  z); 

=  object  translate  (  frnger3_matrix,  -x,  -y,  -z); 

=  object  zrot  (  finger3  matrix,  -90 ); 

=  object  translate  ( finger3_matrix,  x,  y,  z); 


else  if  ((glov.rot  <=  2 )  &&  ( horizontal  =  0 )) 
{ 

horizontal  =  1 ; 

rnini_pToj  ( hand->polygons->points,  &x,  &y,  &z, 
hand_matrix  ), 

handmatrix  =  objectjranslate  (  handmatrix,  -x,  -y ,  -z ); 
handmatrix  =  object_zrot  ( handmatrix,  90 ); 
handmatrix  =  objectjranslate  (  handmatrix,  x,  y,  z  ); 

fingerl_matrix  =  objecttranslate  ( fingerljnatrix,  -x,  -y,  -z); 
fingerl_matrix  =  object_zrot  ( finger  1  matrix,  90 ); 
fingerl  matrix  =  objectjranslate  ( fingerl  matrix,  x,  y,  z ); 

finger2_matrix  =  object_translate  (  finger2_matrix,  -x,  -y,  -z ); 
finger2_matrix  =  object_zrot  ( finger2_matrix,  90 ); 
finger2_matrix  =  objectjranslate  ( finger2_matrix,  x,  y,  z ); 

finger3_matrix  =  object  translate  ( finger3_matrix,  -x,  -y,  -z ); 
finger3_matrix  =  object_zrot  (  fmger3  ^matrix,  90  ); 
finger3_matrix  =  object  translate  ( finger3_matrix,  x,  y,  z ); 
) 


if  (  change  =  1 ) 
{ 

draw_object  (  hand,  hand  matrix,  RED  ); 
drawobject  ( finger!,  fingerl  matrix,  RED ): 
drawobject  (  finger2,  fingerl  matrix,  RED ): 
draw_object  (  finger3,  finger  l_matrix,  RED ): 
draw_object  {  finger4,  fingerl  matrix,  RED ); 

draw  object  ( fingerl_2,  finger2_marrix,  RED  ) 
draw  object  ( finger2_2,  finger2_marrix,  RED  ) 
draw_object  ( finger3_2,  finger2_matrix,  RED  ) 
draw_object  (  finger4_2,  finger2_matrix,  RED ) 


drawobject  ( finger  1_3,  finger3_matrix,  RED ); 
draw  object  ( finger2_3,  finger3_matrix,  RED ); 
draw  object  ( finger3_3,  finger3_matrix,  RED ); 
draw  object  ( finger4_3,  finger3jiiatrix,  RED ); 
change  =  0; 

remote_glove.horizontal  =  horizontal; 
remote_glove.grip  =  grip; 

sockwrite  ( &s,  &remote_glove,  sizeof(remote  _glove)); 
) 

) 

else 
{ 

glovedelayO; 

if  ( sockdataready  ( &s ) ) 
{ 

sockread  ( &s,  &remote_glove,  sizeof  ( remote _glove  )); 


erase„object  ( 
erase_object 
erase_object 
erase_object 
erase_object 
eraseobject 
erase_object 
eraseobject 
eraseobject 
erase_object 
eraseobject 
eraseobject 
erase  object 


remote Jiand  ); 
( remote_fingerl ); 
(  remote_finger2  ), 
( remote_finger3  ); 
( remote_finger4  ); 
( remote  finger  12  ); 
( remote_finger2_2 ); 
( remote  finger3_2 ); 
( Temote  _finger4_2 ); 
( remote  fingerl  3 ); 
( Temote  finger2_3 ); 
( remote  finger3_3 ); 
( remote_finger4_3 ); 


remote  hand  matrix  -  object_translate  ( emotejiandmatrix, 
remote_glove.x^emote_glove.y  gemote  _glove.z ); 

remote  fingerl  matrix  =  object  translate  ( 

remote  fingerl  matrix,  remote_glove.x,  remote jglove.y, 

remote_glove,z  ); 

remote_finger2_matrix  =  objecttranslate  ( 
remote  finger2_matrix,  remote_glove.x^emote_glove.y, 
remote_glove.z ); 


if(remote_honzontal  !=  remote _glove.horizontal ) 
{ 

remote_horizontal  =  remote  _glove.horizontal; 
if  ( remotehorizontal  =  0  ) 
remote_glove.angle  =  90; 
else 

remote_glove.angle  =  -90; 

mini_proj  ( remote_hand->polygons->points,  &x,  &y,  &z, 
remotehandmatrix ); 

remote  hand  matrix  =  object  translate  ( 
remote_hand_matrix,  -x,  -y,  -z ); 

remote  Jiand_matrix  =  object_zrot  (  remote_hand_matrix, 
remote^love. angle  ); 

remote  Jiand_matrix  =  object  translate  ( 
remote_hand_matrix,  x,  y,  z ); 

remote  fingerl  matrix  =  object  translate  ( 
remote_fingerl_matrix,  -x,  -y,  -z ); 

remote_fingeTl_matrix  =  objectzrot  ( 
remote_fingeTl  matrix,  remote _glove.angle ), 

remote  fingerl  matrix  =  object_translate  ( 
remote_fingerl_matrix,  x,  y,  z ); 

remote_finger2_matrix  -  object  translate  ( 
reraoteJinger2_rnatrix,  -x,  -y,  -z ), 

remote  Jinger2_matrix  =  objectzrot  ( 
Temote_finger2_matrix,  remote _glove  angle  ); 

remote  finger2_matrix  =  object  translate  ( 
remote  finger2_matrix,  x,  y ,  z  ); 

remote_finger3_matrix  =  object  translate  ( 
iemote_finger3_matrix,  -x,  -y,  -z  ), 

remote_finger3_matrix  =  object_zrot  ( 
remote_fingeT3_matrix,  remote jdove.  angle  ); 

remote_finger3_matrix  =  objecttranslate  ( 
remote_ringer3  matrix,  x,  y,  z ); 
} 

remote_finger3_tnatrix  =  objecttranslate  ( 
remote_finger3_matrix,  remote  _glove.x,  remote  _glove.y, 
remote_glove.z  ); 

if  ((  remote_glove  grip  =  0 )  &&  ( remote ^love.grip  != 
remote  _grip))  { 
remote_grip  =  0; 

mini_proj  ( &joint_one,  &x,  &y,  &z, 
remote  fingerl  matrix  ); 

remote  fingerl  matrix  =  object  translate  ( 
remote  fingerl  matrix,  -x,  -y,  -z); 

if  (  remote Jiorizontal  =  0  )  { 
remote_fingerl  matrix  =  object_yrot  ( 
remote_fingerl_matrix,  90 ); 

remote^fingerl  matrix  =  object  translate  ( 
remote  fingerl  matrix,  x,  y,  z ); 

} 

else  { 
remote  fingerl  matrix  =  object_xrot  ( 
remote  fingerl  matrix,  90  ); 

remote_fingerl_matrix  =  objecttranslate  ( 
remote  fingerl  matrix,  x,  y,  z ); 
} 

mini_proj  (  &joint_two,  &x,  &y,  &z, 
remote_finger2_matrix ); 

remote_finger2_matrix  =  objecttranslate  ( 
remote  fingerl  matrix,  -x,  -y,  -z  ), 

if  ( remotehorizontal  =  0 )  ( 
remote_finger2_matrix  =  object_yrot  ( 
remote  finger2_matrix,  180 ), 

Temote_finger2_matrix  =  object  translate  ( 
remote_finger2_matrix,  x-300,  y,  z-350  ); 

) 

else  { 
remote_finger2_matrix  =  object  xrot  ( 
remote  _finger2_matrix,  180); 

remote_finger2_matrix  =  objecttranslate  ( 
remote _finger2_matrix,  x,  y+300,  z-350  ); 
) 


mini_proj  ( &joint_three,  &x,  &y,  &z, 
remote_finger3_matrix ), 

remote_finger3_matrix  =  objecttranslate  ( 
remote_finger3_matrix,  -x,  -y,  -z ), 

if  (  remote_horizontal  =  0  ) 

( 

remote_£inger3__matrix  =  object_yrot  ( 
remote_finger3  matrix,  270 ); 

remote_finger3_matrix  =  objecttranslate  ( 
remote_finger3  matrix,  x-250,  y,  z-750 ); 
} 

else 
{ 

remote_finger3 matrix  =  object_xrot  ( 
remote_finger3_matrix,  90 ); 

remote_finger3_matrix  =  object_translate  ( 
remote  finger3_matrix,  x,  y+150,  z-700 ), 
} 


if  (( lemote^love.grip  -  -  1 )  &&  ( remote_grip  != 
remotej>love.grip )) 
{ 

remote^rip  =  1 ; 

mini_proj  (  Ajointone,  &x,  &y,  &z, 
remote_fingerl_matrix ); 

Temote_fingerl  matrix  =  object  translate  { 
remote_fingerl_matiix,  -x,  -y,  -z ); 

if  ( remote^glove, horizontal  =  0  ) 

{ 

remote_fingerl_matrix  =  object_yrot  ( 
remote_fingerl_matrix,  -90  ); 

remote  finger  1  matrix  =  object_translate  ( 
remote  fingerl  matrix,  x,  y,  z ); 

) 

else 
{ 

Temote  finger  l_matrix  =  object  xrot  ( 
remote_fingerl_matrix,  -90  ); 

remotefingerlmatrix  =  object  translate  ( 
remote_fingerl_matrix,  x,  y,  z ); 
} 

mini_proj  ( &joint_two,  &x,  &y,  &z, 
remote_finger2_matrix ); 

remote  _finger2_matrix  =  object  translate  ( 
remote_finger2_matrix,  -x,  -y,  -z ); 

if  ( remotej>love.horizontal  =  0 ) 

{ 

remote_finger2_matrix  =  object  yrot  ( 
remote_finger2_matrix,  180  ); 

remote_finger2_matrix  =  object_translate  ( 
remote_finger2  matrix,  x+300,  y,  z+350  ); 
) 

else 
{ 

remote_finger2_matrix  =  objectxrot  ( 
remote  _finger2_matrix,  180  }; 

remote  _finger2_matiix  =  objecttranslate  ( 
remote_finger2_matrix,  x,  y-300,  z+350 ); 
} 


mini_proj  ( &joint  three,  &x,  <fey,  &z, 
remote  _finger3_matrix  ); 

remote_finger3_matrix  =  object  translate  ( 
remote  finger3_matrix,  -x,  -y,  -z  ); 

if  (  remote_glove.horizontal  =  0  ) 

{ 

remote_finger3_matrix  =  object_yrot  ( 
remote_finger3_matrix,  90  ); 

remote_finger3_matrix  =  objecttranslate  ( 
remote _finger3_matrix,  x+250,  y,  z+750 ), 
} 

else 

(  remote  finger3_matrix  =  objectxrot  ( 
remote _finger3_matrix,  -90 ); 

remote_finger3_matrix  =  object_translate  ( 
remote  finger3_rnatrix,  x,  y-1 50,  z+700 ); 

} 


if  ( remote  horizontal  !=  remotejdove.horizontal ) 
{ 

remote_horizontal  =  remote_glove.horizontal; 
if  ( remote_horizontal  =  0  ) 
remote_glove.angle  =  90; 
else 

remote_glove.angle  =  -90; 

mini _proj  ( remote_hand->polygons->points,  &x,  &y,  &z, 
remote  hand  matrix  ); 

remote_hand_matrix  =  object_translate  ( 
remote_hand  matrix,  -x,  -y,  -z  ); 

remotehandmatrix  —  object_zrot  (  remote_hand_matrix, 
remote  jrfove.  angle  ); 

remote_hand_matrix  =  object_translate  ( 
remote_hand_matrix,  x,  y,  z  ); 

remote_fingerl  matrix  =  object  translate  ( 
Temote  fingeTl  matrix,  -x,  -y,  -z ); 

remote_fingerl_matrix  =  objectzrot  { 
remote Jingerl  matrix,  remote_glove.angle ); 

Temote  finger  1  matrix  =  object  translate  ( 
remote  fingerl  matrix,  x,  y,  z ); 

Temote_finger2_matrix  =  object_translate  { 
remote  _finger2_matrix,  -x,  -y,  -z ), 

Temote _finger2_matrix  =  object  zrot  ( 
remote_finger2_matrix,  remote_glove.angle ); 

Temote  _finger2_rriatrix  =  object  translate  ( 
remote_finger2_matrix,  x,  y,  z  ); 

Temote  finger3_rnatrix  =  object  translate  ( 
remote  finger3„matrix,  -x,  -y,  -z  ); 

Temote  finger3_matrix  =  objectzrot  ( 
remote_finger3_matrix,  Temote_glove.  angle ), 

remote_finger3_matrix  =  objecttranslate  ( 
remote_finger3_matrix,  x,  y,  z ); 
} 
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remotehand,  remote_han(i_matrix,  BLUE ); 
remotefingerl,  remote_fingerl_matrix,  BLUE 

remote_finger2,  remote_fingerl_rnatrix,  BLUE 

remote_finger3,  remote  fingerl  rnatrix,  BLUE 

remote  finger4,  remotefingerlmatrix,  BLUE 

remote_fingerl_2,  remote  finger2_matrix, 
remote  finger2_2,  remote_finger2_matrix, 
remote _finger3_2,  remote_finger2_matnx, 
remote_finger4_2,  remote_finger2  matrix, 

remote_fingerl_3,  remote_fingex3_matnx, 
remote_finger2_3,  remote_Enger3_matnx, 
remote_finger3  3,  remote  finger3_matrix, 
remote  finger4_3,  remote _finger3_matrix, 


return  ( who  closed ); 


void  release_objects() 
{ 

releaseobject  (  hand ); 
releaseobject  {  fingerl  ); 
releaseobject  ( finger2  ); 
release_object  ( finger3  ); 
releaseobject  ( finger4  ); 

release  object  ( fingerl  2 ); 
releaseobject  ( finger2_2 ); 
releaseobject  ( finger3_2 ); 
release  object  ( finger4_2 ); 

release  object  (  fingerl_3 ); 
release  object  (  finger2_3 ); 
release_object  ( finger3_3 ); 
release_object  (  finger4  3 ); 

free  ( hand_matrix ); 
free  (  fingerl  matrix  ); 
free  ( finger2_matrix ); 
free  ( finger3_matrix ); 


releaseobject 
releaseobject 
release  object 
release_object 
releaseobject 

release_object 
releaseobject 
releaseobject 
release_object 

releaseobject 
release  object 
releaseobject 
release  object 


remote  hand ); 
remote  fingerl  ); 
Temote_finger2 ); 
Temote_finger3 ); 
Temote  _fingei4 ); 

remote_fingerl_2  ) 
remote_finger2_2  ) 
remote_nnger3  2  ) 
remote  finger4_2  ) 

remote  finger  1_3 ) 
remote_fingeT2_3 ) 
remote_fingeT3_3 ) 
remote  finger4_3 ) 


free  ( remote_hand_matrix ); 
free  (  remote_fingerl_matrix  ); 
free  ( remote  frnger2_matrix ); 
free  ( i^otefinger3_rnatrix ); 


void  main(int  argc,  char  *argv[]) 
( 

int  graphmode,  graphdriver,  l,  x,  y,  z, 
glovedata  glov; 


word  status, 
longword  remoteip; 
char  *host; 

int  temp  =  1,  who  closed; 

sockinitO; 

clrscrO, 

printf  ( "Waiting  for  connect\n\n" ); 

if  (argc  <  2) 
( 

tcp_listen(  &s,  PORT,  0, 0,  NULL,  0 ); 

sock_mode(  &s,  TCP  MODE  BINARY  ); 

sock  wait  established(  &s,  0,  NULL,  &status); 
printf  ( "Press  any  key  to  begin" ); 
getchu, 

sock_write  (  &s,  &temp,  sizeof  ( temp ) ), 

} 

else 


( 

host  =  argv[l]; 

if  (!( remoteip  =  iesolve(  host ))) 
( 

cprintfe\n\rUnable  to  resolve  '%sVi\r",  host ); 
exit(  3 ); 

} 

if  {  !tcp_open(  &s,  0,  remoteip,  PORT,  NULL  )) 
( 

cputs("Unable  to  open  connection."); 
exit(  1  ); 

} 

sock_mode{  &s,  TCP_MODE_BINARY ); 
sock_wait_established(  &s,  sock_delay,NULL,  &status); 
sockread  ( &s,  &.temp,  sizeof  ( temp )); 

) 


glove  Jnit  ( HIRES,  NULL ); 

priiitf  ( "Exercise  the  glove  and  then  Press  any  key!  !\n" ), 
while  ( IkbhitO ) 

{  while  ( !  glove  readyO )  glovedelayO; 
gloveread  ( &glov  ); 

} 

getchO; 

graphmode  =  VGAHI; 
graphdriver  =  VGA; 

initgraph  ( &graphdriver,  &graphmode, "" ); 
/*  Local  hand  */ 

handmatrix  =  (struct  matrix  ")malloc(sizeof(struct  matrix)); 
fingerlmatrix  =  (struct  matrix  *)malioc(sizeof(struct  matrix)); 
fingert  matrix  =  (struct  matrix  *)ma]loc(sizeof($truct  matrix)); 
finger?  matrix  =  (struct  matrix  *)malloc{sizeof($truct  matrix)); 
identity  (  handmatrix ); 
identity  (  fingerlmatrix ); 
identity  ( finger2  matrix ); 
identity  ( finger3_matrix ); 

/*  Remote  hand  */ 

remote_hand_matrix  =  (struct  matrix  *)malloc(sizeofJ>truct 
matrix)); 

remote  fingerl  matrix  =  {struct  matrix  *)malloc(sizeof(struct 
matrix)); 

remote_finger2_matrix  =  (struct  matrix  *)malloc(sizeo£(struct 
matrix)), 

remote_finger3_rnatrix  =  (struct  matrix  *)malloc(sizeoHstruct 
matrix)), 
identity  ( remote_hand_matrix ); 
identity  (  remote_fingerl_matrix  ); 
identity  ( remote  _finger2_matrix ); 
identity  ( remote _finger3  matrix ); 


draw_object  ( remotehand,  remote_hand_matrix,  BLUE  ); 
draw_object  ( remotefingerl ,  remote  fingeTl  _matrix,  BLUE  ); 
drawobject  ( remote  finger2,  remote_fingerl_matrix,  BLUE ); 
draw  object  ( remoteJ5nger3,  remote_fingerl_matrix,  BLUE ); 
draw  object  ( remote_finger4,  remote_fingerl_matrix,  BLUE  ); 

drawobject  ( remote_fingerl_2,  remote_nnger2_matrix,  BLUE 

); 

draw_object  ( Temote_finger2  2,  remote  firiger2_matrix,  BLUE 

); 

draw_object  (  remote_finger3_2,  remote_finger2_matrix,  BLUE 
)i 

draw  object  (  remote_finger4_2,  remote_finger2_matrix,  BLUE 
), 

draw_object  ( remote  finger  1_3,  remote_finger3_matrix,  BLUE 

); 

draw_object  (  remote  _finger2_3,  remote_finger3_matrix,  BLUE 

); 

draw  object  (  remote_finger3_3,  remote_finger3_matrix,  BLUE 

); 

draw_object  ( remote_finger4  3,  remote  finger3_matrix,  BLUE 

); 

who_closed  =  mainjoopfj; 

glove_quitO; 

releaseobjectsO; 

closegraphQ; 


if  (whoclosed  =  0 ) 
{ 

sock_wait_closed  ( &s,  sock_delay,  NULL,  &status  ), 
exit(0); 

} 

sock_err: 
switch  (  status  )  ( 
case  1  :  cputs("Connection  closed"); 
break; 

case  -1:  cputs("REMOTE  HOST  CLOSED 
CONNECTION"); 
sock  close  ( &s ); 

sockwaitciosed  ( &s,  sockdelay,  NULL,  &status ); 
break; 

} 

exit(0); 


create_view_transfoimationO; 
cleardeviceCK 
get_objectsO; 
init_hand_locationO, 


draw_object  ( hand,  hand  matrix,  RED ); 
draw_object  ( finger! ,  fingerl  matrix,  RED ); 
draw_object  ( finger2,  fingerl  matrix,  RED ); 
draw  object  ( finger3,  fingerl_matrix,  RED  ), 
draw  object  ( finger4,  fingerl  matrix,  RED  ); 
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A  PCVR  Board 

Joseph  D.  Gradecki 


For  experimentors  in  Virtual  Reality  on  the  PC,  the  network  is  the  easiest  way  to  find  out  what 
other  people  are  doing.  Several  of  these  things  involve  the  use  of  electronic  circuits.  I  have  produced 
printed  circuit  boards  from  these  circuits.  Two  of  the  circuits  that  have  been  verified  are  the  Sega 
Glasses  interface  and  the  68HC1 1  PowerGlove  interface.  These  circuits  will  be  described  in  later 
issues.  For  now  here  is  the  schematic,  parts  list,  and  printed  circuit  board  layout  for  each. 
NOTE:  These  circuits  and  circuit  boards  are  not  warranted  by  the  author  or  PCVR  magazine.  Build  at 
your  own  risk. 


Sega  Glasses 

This  is  a  simple  circuit  that  has  been  floating  on  the  net  for  some  time. 
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Parts  List: 


1  -  CD4030  XOR  Gate  -  Do  not  use  74LS86  as  a  replacedment. 

1  -  2N2222  Transistor 

2  -  22k  1/4  watt  5%  resistors 

2  -  10k  1/4  watt  5%  resistors 

1  -  0.01  uF  ceramic  disc  capacitor 
1  -  22  uF  electrolytic  capacitor 

3  -  1N9 14  diodes 

1  -  stereo  1/4"  jack 

1  -  DB25  or  DB9  connector 


It  is  imperative  that  the  IC  be  a  CD4030  and  not  the  TTL  replacement  74LS86.  This  circuit  can  be 
mounted  in  a  case  for  convenience.  The  following  page  displays  the  printed  circuit  artwork  used  to 
produce  a  board.  The  plots  are  2  to  1 ,  which  most  prefer.  


This  is  the  top  of  the  board  looking  at  the  TOP. 


The  next  circuit  is  for  the  68HC1 1  board  for  the  PowerGlove.  The  schematic  is 


68HC11  Based  Power  Glove  Interlace  -  Ron  Menelli  11/19/91 
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Parts  List: 

1  - 

MC68HC81 1E2P  microprocessor 

1  - 

MAX232 

1  - 

MC34064P-5 

1  - 

8  MHZ  crystal 

2- 

18  pF  disc  capacitors 

2- 

4.7  uF  electrolytic  capacitors 

3  - 

1 0  uF  electrolytic  capacitors 

4- 

4.7k  1/4  watt  5%  resistors 

17- 

10k  1.4  watt  5%  resistors 

1  - 

10M  ohm  resistor 

1  - 

0. 1  uF  disc  capacitor 

1  - 

Nintendo  connector 

1  - 

DB25  connector 

Note:  This  schematic  and  all  related  code  was  produced  by  Ron  Menelli.  We  will  be  discussing  this 
circuit  and  the  related  code  in  a  later  issue.  To  the  best  of  my  knowledge,  the  microprocessor  chip 
costs  in  the  area  of  $50.00.  The  printed  circuit  board  art  is  on  the  following  pages  in  a  2  to  1  format. 
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Graphics  -  Basic 


Joseph  D.  Gradecki 


The  foundation  for  any  Virtual  Reality  system  is  3D  interactive  computer  graphics.  In  order  to  help 
those  new  to  the  field  of  computer  graphics,  we  will  try  to  introduce  some  of  the  concepts  that  allow 
you  to  develop  a  graphics  system  of  your  own.  In  developing  computer  graphics  for  my  own  use 
(which  I  am  still  a  novice),  several  books  where  very  helpful. 

"Computer  Graphics"  by  Donald  Hearn/M.  Pauline  Baker  and 

"Art  of  Graphics"  by  Jim  McGregor  and  Alan  Watt  and  of  course, 

"Computer  Graphics:  Principles  and  Practice,  second  edition"  by  Foley,  van  Dam,  Feiner,  and 


The  Foley  book  is  theory  and  some  practice.  The  book  by  McGregor  has  BASIC  code  for  the  IBM 
PC  but  shows  implementation  of  concepts. 

This  column  gives  the  theory  behind  the  different  concepts  of  computer  graphics  and  show  the 
implementation  using  Borland  C  (  Turbo  C  ).  The  first  topic  is  the  coordinate  system  for  computer 
graphics. 

3D  Coordinate  System 

The  three  dimensions  in  the  coordinate  system  consists  of  the  x,  y,  and  z  axis.  Visually  these  appear 

as: 


Hughes. 
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This  coordinate  system  can  be  positioned  in  two  different  positions  called  right  and  left-handed 
coordinate  systems.  A  right-handed  coordinate  system  can  be  envisioned  by  putting  your  right  hand  in 
the  air  and  acting  as  if  grasping  a  bat.  Now,  put  your  thumb  outward.  The  direction  that  your  thumb 
points  is  the  positive  z  direction.  A  left-handed  coordinate  system  is  just  the  opposite  but  this  time  use 
your  left  hand. 

To  transform  this  coordinate  system  onto  the  two  dimension  computer  screen,  position  the  right  or 
left  coordinate  system  in  a  familiar  pattern.  There  are  arguments  for  both  the  right  or  left  system,  for 
simplicity,  we  will  use  the  right-handed  coordinate  system.  Place  the  origin  of  the  three  axis  in  the 
lower-left  corner.  The  x  axis  should  be  placed  on  the  horizontal  part  of  the  screen.  The  y  axis  should 
be  placed  on  the  vertical  part  of  the  screen.  With  this  orientation,  the  positive  z  axis  projects  out  of  the 
screen  and  the  negative  part  of  the  z  axis  projects  into  the  screen.  We  now  have  a  three  dimensional 
coordinate  system  that  can  be  put  onto  the  two  dimensional  video  screen. 


If  we  think  about  what  we  have  done,  we  realize  that  any  object  in  the  xy  plane,  z  =  0,  can  be 
represented  on  the  video  screen  as  it  would  be  in  the  3D  world.  This  object  could  only  be  a  plane  or  a 
section  of  a  plane.  What  if  the  object  is  a  true  three  dimensional  object  like  a  cube?  How  can  we 
represent  this  real  object  on  the  video  screen.  We  need  a  function  that  allows  a  projection  of  a  real 
world  object  onto  the  screen.  The  basic  problem  we  are  dealing  with  is  depth  information.  The  cube 
will  have  distinct  depth  to  it  when  looked  at.  There  are  several  techniques  available  for  indicating 
depth  in  a  graphics  screen.  We  will  look  at  two  popular  systems:  perspective  and  parallel  projection. 

In  parallel  projection,  parallel  lines  are  projected  through  the  object  and  onto  the  screen.  By  varying 
the  viewing  position,  different  points  will  become  visible.  The  object  keeps  its  basic  proportions.  If  we 
had  a  simple  house,  we  could  use  parallel  projection  to  look  at  it  from  the  front. 


Now  if  we  moved  the  viewing  location  to  the  side,  we  will  see  a  different  view.  Notice  that  the 
proportion  of  the  house  remains  the  same.  


Projection 


This  projection  technique  is  fine  for  some  computer  graphic  work  but  when  we  want  to  display  a 
realistic  image  of  a  three  dimensional  object  on  the  screen,  we  need  a  different  way. 

Perspective  projection  allows  for  depth  by  changing  the  size  of  an  object  depending  on  the  location 
of  the  object  from  the  viewer,  simulating  real  life.  Recall  how  a  distant  piece  of  highway  appears  in  the 
horizon.  It  is  small  until  be  come  upon  it.  As  for  our  houses,  the  second  house  would  appear  as 


Notice  how  the  end  of  the  house  appears  small  and  farther  away  than  the  front  of  the  house.  This 
projection  is  the  most  common  one  used  in  interactive  computer  graphics.  In  both  of  these  projections, 
we  have  taken  a  liberty  called  hidden-line  removal. 

In  both  of  the  houses  above,  some  of  the  lines  that  make  up  the  house  are  not  visible.  For  instance, 
the  entire  back  of  the  house  is  not  shown.  If  hidden  lines  are  not  removed,  we  have  the  problem  of 
determining  which  part  of  the  drawing  is  the  front  or  the  back.  Take  the  following  illustration  as  an 
example.  As  children  we  were  taught  to  draw  a  box  as  two  squares  with  the  corners  connected.  This 
picture  of  a  cube  has  the  problem  of  depth.  Which  side  is  the  front?  If  the  lines  that  make  up  the 
hidden  surfaces  are  removed,  the  problem  is  trivial.  


Implementation 

The  first  transformation  that  implements  the  viewing  transformation.  The  viewing  transformation 
takes  us  from  world  coordinates  into  screen  coordinates.  World  coordinates  are  just  that  coordinates 
that  represent  the  object  as  we  see  or  design  it.  World  coordinates  cannot  be  directly  mapped  onto  the 
screen  because  of  the  significant  resolution  differences.  We  will  use  a  system  based  on  spherical 
coordinates.  The  transformation  matrix  is 

V  =  -sin  theta  -cos  theta  cos  p  -cos  theta  sin  phi  0 

cos  theta  -sin  theta  cos  p  -sin  theta  sin  phi  0 

0  sin  phi                 -cos  phi  0 

0  0                         rho  1 

The  matrix  operation  is  (  xe,  ye,  ze)  =  (  xw,  yw,  zw)V,  where  xe,  ye,  ze  are  the  new  eye  coordinates 
and  xw,  yw,  zw  are  the  world  coordinates.  Theta,  phi,  and  rho  will  be  used  to  specify  the  position  of 
the  viewpoint  in  world  coordinate  space.  To  get  a  handle  on  the  use  of  the  spherical  coordinate 
system,  image  specifying  a  point  in  world  coordinate  space  to  be  our  viewpoint.  If  we  draw  a  line  from 
the  origin  to  the  viewpoint,  rho  would  be  the  distance  of  this  line,  theta  is  the  angle  that  a  plane  on  this 
line  makes  with  the  x  axis,  and  phi  is  the  angle  that  a  plane  on  this  line  makes  with  the  z  axis. 

Once  we  have  the  eye  coordinates,  we  need  to  project  them  onto  the  screen  using  the  perspective 
transformation.  This  is  done  with  these  two  equations: 

ys  =  dis  X  ye  /  ze 

xs  =  dis  X  xe  /  ze 

Dis  is  the  distance  from  the  eye  to  the  screen.  This  is  a  different  distance  than  rho,  since  rho  is 
measured  from  the  origin  to  the  eye.  The  mathematics  are  quite  involved  and  space  does  not  allow  for 
a  full  explanation.  I  recommend  checking  the  Foley  book  mentioned  above  for  a  theoretical 
explanation.  The  following  short  program  will  illustrate  some  of  the  above  concepts.  A  simple  set  of 
axis  will  be  drawn  on  the  screen.  Using  keystrokes,  different  aspects  of  the  scene  can  be  changed.  


/*  This  code  is  copyrighted  by  VRing  Software  Development  */ 
/*  Any  commercial  use  is  stricted  prohibited  unless 
/*  permission  is  granted  otherwise.  */ 

/*  Axisc  "7 

/*  The  purpose  of  this  program  is  to  demonstrate  the  concept  of 
eye  viewpoint  and  perspective  transformations. 

Once  the  program  has  started,  the  values  for  Rho,  Theta,  Phi,  and 
screendist  will  be  displayed  as  the  viewpoint  is  moved. 

The  viewpoint  is  changed  by  using  the  following  keys: 

T  -  decrease  theta  by  5  degrees 
t  -  increase  theta  by  5  degrees 

R  -  decrease  rho  by  50  points 
r  -  increase  rho  by  50  points 

P  -  decrease  phi  by  5  degrees 
p  -  increase  phi  by  5  degrees 

D  -  decrease  distance  of  eye  to  origin 
d  -  increase  distance  of  eye  to  origin 

q  -  quit 

The  origin  will  appear  at  screen  location  320, 240. 

The  x  axis  of  the  coordinate  system  is  colored  blue. 
The  y  axis  of  the  coordinate  system  is  colored  red. 
The  z  axis  of  the  coordinate  system  is  colored  green. 

*/ 


^include  <stdio.h> 
^include  <stdlib.h> 
#include  <graphics  h> 
#include  <math  h> 
#include  <conio.h> 
#include  <dos.h> 
#define  to_radians  0.017453292 
float  rho  =  5000, 

theta  =  90.0, 

phi=  180.0, 

screendist  =  1000.0; 

int  screen_2x  =  320; 
int  scTeen_2y  =  240, 

float  va,vb,ve,vf,vg,vi,vj,vk,vl; 


void  create  view  transformationO 
{ 

float  sintheta,  costheta,  sinphi,  cosphi; 

sintheta  =  sin(theta*to_radians); 
costheta  =  cos(theta*to_radians); 
sinphi  =  sin(phi*to_radians); 
cosphi  =  cos(phi*to_radians); 

va  —  -sintheta; 

vb  =  costheta; 

ve  =  -costheta'Vosphi; 

vf  =  -sintheta*cosphi; 

vg  =  sinphi, 

vi  =  -costheta*sinphi; 

yj  =  -sintheta*sinphi; 

vk  =  -cosphi; 

vl  =  rho; 

) 

void  proj  ( int  xw,  int  yw,  int  zw,  int  *sx,  int  *sy  ) 
( 

float  xe,  ye,  ze; 


/*  Translate  to  eye  coordinate  */ 
xe  =  va*xw  +  vb*yw; 
ye  =  ve'xw  +  vf*yw  +  vg*zw; 
ze  =  vi*xw  +  vj*yw  +  vk*zw  +  vl; 

/*  Translate  to  perpective  view  */ 
*sx  =  screendist  *  xe  /  ze; 
*sy  -  screendist  *  ye  /  ze; 

} 


void  move_loop0 
( 

charch  =  0,temp[100]; 
intx,  y; 

while  ( ch  !=  'q' ) 
( 

ch  =  getchO; 
setcolor  (  BLACK  ); 
proj  ( 200, 0, 0,  &x,  &y  ), 

moveto  (  320, 240 );  lineto  ( screen  2x-x,  scTeen_2y-y ); 
proj  ( 0,  200, 0,  &x,  &y  ); 

moveto  ( 320, 240 );  lineto  ( screen_2x-x,  screen_2y-y ); 
proj(0, 0,200,&x,&y); 

moveto  ( 320, 240 );  lineto  (  screen_2x-x,  screen  2y-y ); 

sprintf  ( temp,  "%g",  theta ); 
outtexrxy  (  10, 10,  "Theta  =  " ), 
outtexrxy  (100, 10,  temp); 
sprintf  ( temp,  "%g",  phi ); 
outtextxy{  10,20,  "Phi  =  "); 
outtextxy  (  100, 20,  temp  ); 
sprintf  ( temp,  "%g",  rho ); 
outtextxy  ( 10, 30,  "Rho  =  "  ), 
outtexrxy  ( 100, 30,  temp  ); 
sprintf  ( temp,  "%g",  screendist ), 
outtextxy  (  10,  40,  "Screen  =  " ); 
outtexrxy  ( 100,  40,  temp  ), 


switch  (  ch ) 
( 


case  '1:  theta  +=  5.0; 

break; 

case  T:  theta  -=  5.0; 

break; 

case  Y:  rho  +=  50.0; 

break; 

case  'R':  rho  -=  50.0; 

break; 

case  'p':  phi  +=  5.0; 

break; 

case  'P':  phi  —  5.0; 

break; 

case 'd':  screendist  += 

50.0; 
break; 

case  'D':  screendist  -= 

50.0; 

break; 

) 

create_view_transformationO , 

/*  redraw  screen  */ 
setcolor  (BLUE); 
proj  ( 200, 0, 0,  Ax,  &y  ); 

moveto  {  320, 240  );  lineto  (  screen_2x-x,  screen  2y-y  ); 

setcolor  ( RED  ); 

proj  (  0,  200, 0,  &x,  &y ), 

moveto  ( 320, 240 );  lineto  (  screen_2x-x,  screen  2y-y ); 
setcolor  ( GREEN  ), 
proj  (  0,  0,  200,  &x,  &y  ), 

moveto  ( 320,  240  );  lineto  (  screen_2x-x,  screen_2y-y  ), 

/"  put  up  stats  */ 
setcolor  (WHITE); 
sprintf  ( temp,  "%g",  theta ); 
outtextxy  ( 10,  10,  "Theta  =  " ); 
outtextxy  ( 100,  10,  temp  ); 


sprintf  ( temp,  "%g*\  phi ), 

/*  draw  screen  */ 

outtextxy  (  10,  2QT  "Pru  =  "  )i 

setcolor  ( BLUE  ); 

outtextxy  (  100,  20T  temp  )■ 

proj  (  200, 0,  0,  &x,  &y  ); 

sprintf  {  temp,  *%g"t  rho  )^ 

moveto  ( 320, 240 );  lineto  ( screen_2x-x,  screen_2y-y ); 
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setcolor  {  RED  ); 

outtextxy  ( 100, 30,  temp); 

proj  (  0,  200,  0,  &x,  &y  ); 

sprintf  ( temp,  "%g",  scteendist ); 

moveto  {  320,  240  );  lineto  (  screen  2x-x,  screen_2y-y  ); 

outtextxy  { 10, 40,  "Screen  = " ); 

setcolor  { GREEN ), 

outtextxy  {  100, 40,  temp ), 

proj  ( 0, 0, 200,  &x,  &y ); 

} 

moveto  (  320,  240  );  lineto  (  screen_2x-x,  screen_2y-y  ); 

} 

/*  draw  statistics  */ 

setcolor  ( WHITE ); 

void  mainQ 

sprintf  ( temp,  "%g",  Iheta  ), 

( 

outtextxy  (10,  10,  "Theta  = " ); 

char  ch,  temp[100). 

outtextxy  ( 100,  SO,  temp); 

int  graphmode,  graphdriver,  x,  y; 

sprintf  ( temp,  "%g",  phi ); 

outtextxy  (  10,  20,  "Phi  =  "  ); 

/*  Set  up  graphics  screen  */ 

outtextxy  (  100,  20,  temp); 

graphmode  =  VGAHI; 

sprintf  ( temp,  "%g",  rtio  ); 

graphdriver  =  VGA; 

outtextxy  {  10,  30,  "Rho  =  " ); 

imtgraph  ( &graphdnver,  &giaphmod£L,  "cAta" ); 

outtextxy  { 100, 30,  temp); 

sprintf  ( temp,  "%g",  screendist ); 

create  view  transfbi  u  lationQ;           /*  Set  up  trans  foi  i  nations  */ 

outtextxy  { 10, 40,  "Screen  = " ); 

cleardeviceQ,                     /*  Clear  display  screen  */ 

outtextxy  ( 1 00, 40,  temp ); 

move  loopO;                       /*  Movement  loop  */ 

closegraphQ;                       /*  Release  graphics  screen  "7 

Next  Month 


The  theme  for  the  next  issue  will  be  Head  Mounted  Displays.  Topics  will  include  an  explanation  of 
the  SEGA  3D  glasses,  basic  idea  of  what  a  HMD  is,  and  plans  to  built  a  Head  Mounted  Display. 

If  you  have  any  thoughts  or  ideas  that  you  wish  to  share,  write  them  up  and  send  in  an  article.  We 
are  unable  to  pay  for  articles  however  the  more  articles  we  get,  the  bigger  circulation,  and  then  we  will 
be  able  to  pay  for  articles.  For  now,  the  pay  is  the  wealth  of  information  shared  and  gained  in  an 
atempt  to  make  VR  a  reality  for  PC  users. 


The  Last  Page 


Submissions 

If  you  would  like  to  submit  something  for  publication,  a  complaint,  or  a  letter  to  the  editor,  you 
have  two  options 

1)  send  a  disk  (  any  size,  density  )  with  an  ascii  file,  WordPerfect  file,  Word  for  Windows  file. 
Please  include  illustrations  in  either  PCX  or  GIF  format  or  in  the  document  if  using  Word  for  Windows 
to  the  address  below. 

Please  double-space. 


Software  Orders 

I  will  be  happy  to  send  you  a  disk  of  the  software  presented  in  this  or  any  issue  of  PCVR.  Send  a 
letter  with  the  issue  number,  size,  density  disk  and  $5.00  ( this  covers  the  disk,  mailer,  and  postage  )  to 
the  address  below. 


PCVR 

2706  Sherman  Hill  Rd  #A 
Laramie,  Wyoming  82070 


